Select Code to Download

sub AUTOLOAD {
    our $AUTOLOAD;
...
    };
    goto &$newsub;
}

#!/usr/bin/perl -T
use strict;
...
        die "";
}

#!/usr/bin/perl
...

######################################################################
+######
# smallWindowWhenRecomposed.pl
...
    }
}

#!perl -w

...

    print $cgi->end_html;
}

my $scalar = ("one","two","three");

use strict;
# context test
...
{
    return @array;
}

use strict;
use warnings;
...
sub badger
{
    print "badger\n";

select u.usernae, u.realname from userdata where username in (select u
+sername from appointmentslot where appointment is null)
 and u.mobdetailsid = m.id and m.deploymentmethod like 'IT assisted'

#first line of code
#second line of code
#third line of code

use strict;
use warnings;
...