gistfile1.txt

#pp

#!/usr/bin/perl 
use Data::Dumper;
no strict;
no warnings "all";
$cmd = shift @ARGV;
while(<>) {
    chomp;
    print( $_, "\n" ) if eval $cmd;
}

#pmp

#!/usr/bin/perl 
use Data::Dumper;
no strict;
no warnings "all";
$cmd = shift @ARGV;
while(<>) {
    chomp;
    my $res = eval $cmd;
    chomp $res;
    print( $res, "\n" ) if defined $res;
}

#pgr

#!/usr/bin/perl 
use Data::Dumper;
no strict;
no warnings "all";
$cmd = shift @ARGV;
while(<STDIN>) {
    chomp;
    eval $cmd;
    chomp;
    print( $_, "\n" ) if defined;
}