#!/usr/bin/perl

$name = $ARGV[0];
$rep = $ARGV[1];

die if ($name eq "");
die if ($rep eq "");

@list = <$name*>;
foreach $old (@list) {
  $new = $old;
  $new =~ s/^$name/$rep/g;
  $cmd = "mv $old $new";
  system($cmd);
  print "$cmd\n";
}