mv_silent

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 my $c = "mv $ARGV[0] $ARGV[1]";
   6 #print STDERR "mv_silent called\n";
   7 if (-e $ARGV[0]) {
   8   #print STDERR "mv_silent: $c, -e=",(-e $ARGV[0])," ===================================================\n";
   9   system $c;
  10 }
  11 else {
  12   #print STDERR "mv_silent: $ARGV[0] doesn't exist\n"
  13 }