Hi try this,

#!/usr/local/bin/perl
use File::Basename;
print $file_name = basename('/opt/local/bin/zap.exe');
[download]