Stupid Scripts

#!/usr/bin/perl
## ~/bin/prepend-something ##
my $pre = shift;
my @files = @ARGV;
foreach $file (@files) {
    my $new = $pre.$file;
    system ("mv -v \"$file\" \"$new\"");
}


#!/usr/bin/perl
## ~/bin/rename-files ##
my $old = shift;
my $new = shift;
my @files = @ARGV;
foreach $file (@files) {
    my $filenew = $file;
    $filenew =~ s/$old/$new/g;
    system ("mv -v \"$file\" \"$filenew\"");
}