Select Code to Download

#!/usr/bin/perl -w

...

# Perl, please inform me that the file MYFILE does not exist
system ("cat $file" or $long_message());

# ./tester.cgi
syntax error at ./tester.cgi line 16, near "$long_message("
Execution of ./tester.cgi aborted due to compilation errors.

#!/usr/bin/perl -w
use strict;
...
my $file = "MYFILE";

system ("cat $file" or confess(),cluck(),carp());

cat: MYFILE: No such file or directory