Select Code to Download

{
local $/;
...
$stmts = <SQLFILE>;
close SQLFILE;
}

my $stmts = do
   {
...
       open my $sqlFH, q{<}, q{file.sql} or die qq{open: file.sql: $!\
+n};
       <$sqlFH>;
   };