Select Code to Download

if ($foo == 7)
{
     $foo++;
}

#!/usr/bin/perl -w
use strict;
my $foo;
...
     $foo++;
}
print($foo);

#!/usr/bin/perl -w
use strict;
my $foo;
...
     $foo++;
}
print($foo);

if ($foo == 7)
{
     $foo++;
}