opendir( DIR, '.' );
    my @files = readdir(DIR);
closedir( DIR );
foreach my $file ( @files ) {
    next if $file =~ /\./;
    rename( $file, "$file.pl" );
    print "$file => $file.pl\n";
}
print "Complete";
my $read = <STDIN>;