Select Code to Download

#!/usr/bin/env perl

...
    system cat => $file;
    print '-' x (42 + length $file), "\n";
}

-------------------- pm_11115310_lines.txt --------------------

...
S_FER_SCAM4_ARRESTO;ARRESTO;SU LI IR ST;0;SU LI IR ST;1;0;TS;0;0
S_FER_SCAM5_ARRESTO;ARRESTO;ST;0;ST;1;0;TS;0;0
---------------------------------------------------------------