Select Code to Download

#!/usr/bin/perl

...
my $filename = '/etc/doesnt_exist.conf';
my $name     = 'doesnt_exist.conf';
file_exists_ok( $filename [, $name ] );

[root@dev1 perl]# perl test-file
1..1
...
syntax error at test-file line 10, near "[,"
Execution of test-file aborted due to compilation errors.
# Looks like your test died before it could output anything.

#!/usr/bin/perl

...
my $filename = '/etc/doesnt_exist.conf';
my $name     = 'doesnt_exist.conf';
file_exists_ok( $filename, [ $name ] );

[root@dev1 perl]# perl test-file
1..1
...
WHOA!  Somehow you got a different number of results than tests ran!
This should never happen!  Please contact the author immediately!
END failed--call queue aborted.