Select Code to Download

#!/usr/bin/perl
use strict;
...
print shift, "\n"; #prints "foobar"

}

#!/usr/bin/perl
use strict;
...
print pop, "\n"; #prints "foo"

}

#!/usr/bin/perl
use strict;
...
print $params{'-third'}, "\n"; #prints "foobar"

}