##
my $var1 = 0;
my $var2 = 1;
# Draw an axis with a pencil and a ruler
function($var1, $var2);
##
##
my $pencil = 0;
my $ruler = 0;
draw_axis($pencil, $ruler);
sub draw_axis {
my ($pencil, $ruler) = @_;
if (! $pencil) {
# On rare occasions, a pencil might be broken, so do this
$pencil++;
}
}