#!/usr/bin/perl

$FILE=$ARGV[0];

$NEWFILE=$FILE;
$NEWFILE =~s/\.new//;
rename $FILE,$NEWFILE;