1*b8851fccSafresh1#!./perl -w 2*b8851fccSafresh1 3*b8851fccSafresh1use strict; 4*b8851fccSafresh1BEGIN { 5*b8851fccSafresh1 if ($] < 5.005) { 6*b8851fccSafresh1 print "1..0\n"; 7*b8851fccSafresh1 print "ok 1 # skipped; this test requires at least perl 5.005\n"; 8*b8851fccSafresh1 exit; 9*b8851fccSafresh1 } 10*b8851fccSafresh1} 11*b8851fccSafresh1use Test; plan tests => 1; 12*b8851fccSafresh1 13*b8851fccSafresh1ok 'abc', qr/b/; 14