Select Code to Download

#!/usr/bin/perl

...
print "a is $a\n";

exit 0;

defined(do $file)
  or die "Can't load $file: $!\n";