Select Code to Download

#!/usr/local/bin/perl
use strict;
...
sub foo {
    print STDERR "variables are now: $foo $fum\n";
}

variables are now: 1 1
variables are now: 1 2
variables are now: 2 2