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