Help for this page

Select Code to Download

Select or download this
open my $FH, "<", $in or (print "cannot open file $in\n" and exit 3);

Select or download this

$ perl -e 'open my $FH, "<", "xml.pl" and print "Opened!" or print "ca
+nnot open file\n" and print 3'
Opened!
$ perl -e 'open my $FH, "<", "xml2.pl" and print "Opened!" or print "c
+annot open file\n" and print 3'
cannot open file
3