Select Code to Download

#!/usr/bin/perl

...
WAITING /prod-data/J 00151120273  X jmorg     2015244 134  s/109   13:
+48:32 Jul 20
WAITING /prod-data/J 00151120273  X gdavi     1359996 62   ts/20   13:
+54:22 Jul 20
=cut

=And rest of the story, pp() output and __DATA__
...
----------------------------------------------------------------------
+----
FILENAME     RECORD_ID    M WAITING   UNBR    UNO  TTY     TIME     DA
+TE
/prod-datahi 001!10274882 X jmorg     3584038 247  ts/49   13:39:22 Ju
+l 20