4.4BSD/usr/src/contrib/perl-4.036/atarist/test/glob

while(<*.pl>)
{
    print $_, "\n";
}