rename( $source, $dest ) or
  system( "/bin/mv", $source, $dest ) and
    die ( "Move from $source to $dest failed - $!" );