Select Code to Download

use strict;
use warnings;

...
}
print double(7);
sub double {my $var = shift; return 2 * $var;}

$ perl scope.pl
2
1
...
4
5
14