Try This one. This will work. use strict; use FileHandle; my $LOG = "log.txt"; my $fh = FileHandle->new(">> $LOG"); if (defined $fh) { print $fh "bar\n"; $fh->close; }