#!/usr/bin/perl -w
use strict;
while (glob("*.txt *.log")) {
    print "$_\n";
}