open (FILE,">test.txt");
print FILE $ARGV[0];