#!perl
                                                      
my $cmd = sprintf '"%s" %s 1>"%s" 2>&1', 
              $opt { command },
              $opt { parameter },
              $opt { stdout };

system( $cmd );

# indicate EOF

open( FILE, ">>", $opt { stdout } );
print FILE "#eof#\n";
close( FILE );