### 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";