Find a file and rename th e file

use File::Find;
use File::Copy;
find(\&sam,"sam");
sub sam
{
copy("sam","samdev");
}