# script_to_cal.pl
use strict;
use warnings;

print "script_to_call.pl args:\n";
for my $arg (@ARGV) {
	print "$arg\n";
}