use strict; use warnings; open(my $fh,'>:unix','abc.txt') or die $!; print $fh "one line\n"