use File::Basename;
$str='/usr/local/prj/code/prog/prog1';
$name = basename("$str");
print "$name";