Select Code to Download

use warnings;
use strict;
...

pod2usage(1) if $options{'help'};
pod2usage( '-verbose' => 2 ) if $options{'man'};

%> myprog -based_on sn -top 5
# or as 
...
%> myprog -base sn -t 2
# or use tht default values
%> myprog

#!/usr/bin/perl

perldoc perltoc