Select Code to Download

#!/usr/bin/perl --
#~ .../buginmy.pl
#~ 2013-10-16-23:50:42
...
print FILE ( "$suffix" );

close( FILE );

            my $bookMark = $charset[ rand( @charset ) ];

    print FILE ( qq{
      {
...
         "visits":   "$visits"
      }
} );

my $lim =  int( shift || 3 );
warn "# The limit is $lim\n";

#!/usr/bin/perl --
use Path::Tiny;
...
        )
    );
}