Select Code to Download

# good, open with error checking
opendir(DIR, "$dir") || die "can't open $dir $!\n";

...
  }
}
closedir(DIR);

#!/usr/bin/perl -w
# rename - Larry's filename fixer
$op = shift or die "Usage: rename expr [files]\n";
...
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}

% rename 's/\.orig$//'  *.orig
% rename 'tr/A-Z/a-z/ unless /^Make/'  *
% rename '$_ .= ".bad"'  *.f
% rename 'print "$_: "; s/foo/bar/ if <STDIN> =~ /^y/i'  *
% find /tmp -name '*~' -print | rename 's/^(.+)~$/.#$1/'

% rename 's/ +/./g'  *
or
% rename 'tr/ /./' *