Select Code to Download

use strict;
use DBI;
...
}

$db->disconnect();

use strict;
use DBI;
...
print @col;
}
}

&subroutine('$moo')
sub soubroutine   {
...
   $var = "moo";
   print $moo;
}