my @perl = <*.pl>;
print scalar @perl;