#!/usr/bin/perl -w

$it = 11;
writevar($it);
$a = $it/2;
writevar($a);

sub writevar {
   $var = $_[0];
   print "The value was: $var\n";
}
