Help for this page

Select Code to Download

Select or download this

my $based_on = $ARGV[0] ? shift: 'tp';
my $top      = $ARGV[1] ? shift: 1;
print "$based_on $top\n";

# Then the rest of the code

Select or download this
```
neversaint$ perl mycode.pl sn 5
```