#!/usr/bin/perl -w

$it = 11;
writeit();
$it = $it/2;
writeit();

sub writeit {
   print "\$it = $it\n";
}
