use strict;
use warnings;

my $file='ttz';

open( my $fh, $file ) or die "open error $!";
binmode( $fh, ':unix');

close($fh) or die "close error $!";

if( !unlink($file) ) {
    warn $!, ' : ', $^E;
}