Select Code to Download

sub main
{
   # read arguments
...
    ...
   # exit
}

sub main
{
   my %args = read_arguments();
...
   write_output( $data, \%args );   
   cleanup( $file, \%args );
}