# program one (one.pl)
my $gimme = system('./two.pl','foo','bar');

# program two (two.pl)
print join(':',@ARGV),"\n";