my @files = glob('*.pl');