my $fname = (split/\//, '/home/bin/scripts/test.pl')[-1];