path: root/atarist/test/glob

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