#!/usr/bin/perl
binmode STDOUT;
my $tmpnam='c:\\script\\temp.out';
my $parm;
while (@ARGV) { $parm .= shift() . ' ' ; }
#$parm = $parm || "72Tbgjqw74bEe B=._A_a 72bgi" ;
$parm = $parm || "72Tbgqw74bE B=._A_a 72bgi" ;
open PARPIPE, "|c:\\script\\par.exe $parm > $tmpnam";
while (<>) { print PARPIPE $_ ; }
close PARPIPE ;
open TEMP, "<$tmpnam";
while (<TEMP>) { print ; }
close TEMP ;
unlink $tmpnam ;
