#!/usr/bin/perl -w

# rename.plx - rename files so they end in '.html'

foreach $file (@ARGV) {
    $new  = lc $file;
    $new .= 'l';
    
    if (-e $new) {
        warn "$new already exists. Skipping...\n";
        next;
    }

    unless (-f $file) {
        warn "$file is not a plain file. Skipping...\n";
        next;
    }
    
    unless ($file =~ /\.htm$/i) {
        warn "$file doesn't end in .htm or .HTM. Skipping...\n";
        next;
    }

    if ($file =~ m{/}) {
        warn "$file contains a slash. Skipping...\n";
        next;
    }
    rename $file, $new or die "couldn't rename $file to $new: $!";
}