Hello ,

if you want to check for errors , you could use one of the following ways

# output fatal errors to browser
use CGI::Carp qw(fatalsToBrowser);
# or just change your die statment to print such like 
open(FH,"$filename |") or print "can't open file $!";
[download]