#!/usr/bin/perl -wT
use strict;
use warnings;
use File::Copy;

...

unless(move("$new", "/var/save/$subfolder_name")) {
       print STDERR "Oops!  Couldn't move the file: $!";
}