#!/usr/bin/perl

print "We're in script1 now\n";

@ARGV = ("super", "duper");
do('script2');

print "Back in script1\n";

##</code><code>##

#!/usr/bin/perl

print "\tNow we're in script2\n";

my ($arg1, $arg2) = @ARGV;

print "\t- arg1: $arg1\n";
print "\t- arg2: $arg2\n";
print "\tscript2 ends\n";