#! perl -w
use File::Basename;
my $path = "/qw/er/ty.ui/";
$path =~ s/\/$//;
my $filename = basename($path);
print $filename;
[download]