C:\>type test.pl
#!/usr/bin/perl

# test.pl
my $prog = 'receive.pl';
my $user = 'foo';
my $pass = 'bar';

system( $prog, $user, $pass ) && die "system failed $?";
print "Did system( $prog, $user, $pass ) OK";
exit 0;

C:\>type receive.pl
#!/usr/bin/perl

# receive.pl
print "I am recieving, got: @ARGV\n\n";
exit 0;

C:\>receive.pl arg1 arg2 arg3 blah
I am recieving, got: arg1 arg2 arg3 blah

C:\>test.pl
I am recieving, got: foo bar

Did system( receive.pl, foo, bar ) OK
C:\>
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print