Select Code to Download

#!/usr/bin/perl -sl

BEGIN { $^W = 1; }
sub BEGIN {
...
        die $@;
    }    
}

local $OUTPUT_RECORD_SEPARATOR = *\ ;