Select Code to Download

#!/usr/bin/perl

...
}
warn "After warn handler\n";
print "Collected warnings:\n$warnings\n";