Select Code to Download

#!/usr/bin/env perl
use strict;
use warnings;
...
sub main_routine {
    # lots of stuff.
}