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