Select Code to Download

#!/usr/bin/perl
...

print "...and so on\n";

By taking a reference first...
w
...
w
w
...and so on