perl -e 'open($fh, ">", "tst") or die "$!"; print $fh "XX\n"; close $fh;'