use strict;
use warnings;
open(my $fh,'>','abc.txt') or die $!; 
binmode($fh,':unix');
print $fh "one line\n"
close $fh;
# Error message on unlink
unlink 'abc.txt' or die $!;