#!/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";