Try opening the command to a pipe.

open(PIPE,"$run |") || die "pipe open failed: $!";
while(<PIPE>) {
    print $_;
}
close(PIPE);
[download]

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"