### test_args.pl ###
use strict;

my @args;
open (IN, "arguments.txt") or die;
while (<IN>)
{
	chomp;
	s|"|\\"|g;
	push @args, qq("$_");
}
close (IN);

my $arg_str = join(" ", @args);
my $output = `print_args.pl $arg_str 2>&1`;
print "Output:\n$output";

##</code><code>##

### print_args.pl ###
use strict;

for (my $i=0; $i<=$#ARGV; $i++)
{
	print STDERR "Arg $i - $ARGV[$i]\n";
}