$so = qw( stdout.log ); 
$se = $so; 
open STDOUT, qw( > ) . $so; 
open STDERR, qw( > ) . $se; 
@args = qw( perl, %1, %2, %3, %4, %5, %6, %7, %8, %9 ); 
system( @args ) == 0 or warn qw( Failure: $? );