#! /usr/bin/perl -w

sub of_all_things {
 print "You called me!\n"; #will print this when called
  $one*$two;   #Here are the workings that will return value
}


$one = 12;
$two = 10;
$three=&of_all_things; #return value
$four=2*$three; #using the return value
  print "2 x 120 = $four\n";