use warnings;
print ">>>$ARGV[0]<<<\n";
open (FILE,">test.txt") or die $!;
print FILE $ARGV[0];