in reply to Re^2: PL/1's PUT DATA in Perl - is this possible?
in thread PL/1's PUT DATA in Perl - is this possible?

Adjusted for inferior shell: 

#!/usr/bin/sh
perl -e'$l=shift if $ARGV[0] =~ /#{3,}/;
        exec $^X, "-MSmart::Comments=$l", @ARGV;
        die $!
       '

[download]

In Section Seekers of Perl Wisdom