Select Code to Download

#!/usr/bin/perl
####################################
...
    }

1;

#!/usr/bin/perl

...
write_cookie();

print "Something";