perl -e '$d="/usr/local/bin/perl"; $i=rindex($d,"\/"); print substr($d,$i+1),"\n";'