1*b39c5158Smillert#!/usr/bin/perl 2*b39c5158Smillert 3*b39c5158Smillertprint "1..1\n"; 4*b39c5158Smillert 5*b39c5158Smillertdie "I should have no args -- @ARGV" if (@ARGV); 6*b39c5158Smillertprint "ok 1 - this is a test\n"; 7*b39c5158Smillert 8