Select Code to Download

package whatever;

...

return 1;  # Perl insists on this :-)

#!/usr/bin/perl

...

whatever::log("Log file entry"); 
$answer = whatever::calculate_something();