use strict;
use warnings;
use File::Copy;

my $NFILE = "09911";
my $FILE = '02190.JPG';


my $filetobecopied = $FILE;
my $foldertocopyto = "img";
my $rename = rename($FILE, "$NFILE.JPG");
copy($rename, $foldertocopyto) or die "File cannot be copied.";