my $NFILE = "09911"; #NEW FILE NAME my $FILE = '02190.JPG'; #FILE TO OPEN my $openfile = open(DATA, ">$FILE"); #OPEN FILE my $newfile = rename($openfile, $NFILE); #RENAME FILE FROM 02190.JPG TO 09911.JPG my $writefile = open(DATA,">>", "img/$newfile"); #INSERT THE FILE IN IMG DIR WITH NEW NAME 09911.JPG close DATA;