Select Code to Download

#!/usr/bin/perl
use strict;
...
    $fh->close;
}
close INPUT;

{
  local *STDIN;
...
  print <>;
  close(STDIN);
}

my @lines = (
    'a string with numbers and letters 4678',
...
}
close INPUT;
unlink 'tmpfile';