Select Code to Download

#!/usr/bin/env perl

...
    
    print "Hello $name\n";
}

# Main routine
sub main {
...
}

main();

# Main routine
MAIN: {
...

    say_hello($greeted);
}

# Main routine
MAIN: {
...

    exit(0);
}

package My::Routine;

...

# Run the main routine only when called as a script
__PACKAGE__->main() unless caller;

#!/usr/bin/perl

...
    say_hello($greeted);
};

#!/usr/bin/env perl
require 'script_with_main.pl';
print "Loaded script!\n";
run_main('Shakespeare!', 'perlmonks');

$ perl test_test_main.pl 
Loaded script!
Hello perlmonks

use strict;
use warnings;
...
};

1;