#!/usr/bin/perl
use strict;
use warnings;

open(PROG, "-| @ARGV");
while(<PROG>) {
print $_;
}
close(PROG);