#!/usr/bin/perl

use warnings;
use strict;
use Test::More tests => 1;
use Test::File;

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

[root@dev1 perl]# perl test-file
1..1
Multidimensional syntax $filename [, $name ] not supported at test-file line 10.Global symbol "@filename" requires explicit package name at test-file line 10.
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.

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;
use Test::More tests => 1;
use Test::File;

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

##</code><code>##

[root@dev1 perl]# perl test-file
1..1
# File [/etc/doesnt_exist.conf] does not exist
Invalid value for shared scalar at /usr/lib/perl5/5.8.6/Test/Builder.pm line 319.
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.