Select Code to Download

$filename = "~/madam";
$filename =~ s{
...
  }ex;

print $filename, "\n";

#!/usr/bin/perl

...

  $file
}