unless (system("mv $filename1 $newfile") == 0)
{
    print "FAILED WHILE MOVING mv $filename1$newfile\n";
    return 1;
}