$ perl -e 'print pop @{[split m|/|, "/home/bin/scripts/test.pl"]};'
test.pl
$