Select Code to Download

BEGIN {
  open my $fh, ">", "/tmp/name-of-script.INC.txt";
  printf $fh "%s\n", join "\n", @INC;
}