# 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 $!";