I second these points! Here's one more: open( my $expFile , qq{>>/etc/ssh/sftp-users.dat} ); would be better as the three-argument open and it should definitely check for errors: open( my $expFile, '>>', q{/etc/ssh/sftp-users.dat} ) or die $!;