#!/usr/bin/perl -w
sub sum_of_fred_and_barney {
print "Hey,you called the sum_of_fred_and_barney subroutine!\n";
$fred+$barney;
}
$fred=3;
$barney=4;
$wilma=&sum_of_fred_and_barney;
print "\$wilma is $wilma\n";
sub sum_of_fred_and_barney {
print "Hey,you called the sum_of_fred_and_barney subroutine!\n";
$fred+$barney;
}
$fred=3;
$barney=4;
$wilma=&sum_of_fred_and_barney;
print "\$wilma is $wilma\n";
