1N/A#!./perl -w
1N/A
1N/Ause strict;
1N/ABEGIN {
1N/A if ($] < 5.005) {
1N/A print "1..0\n";
1N/A print "ok 1 # skipped; this test requires at least perl 5.005\n";
1N/A exit;
1N/A }
1N/A}
1N/Ause Test; plan tests => 1;
1N/A
1N/Aok 'abc', qr/b/;