Well just a hint:
use File::Basename

$0=basename $0;<br>
[download]

this will do the same job as $0 =~ s#.*/##;
But maybe it`s better to understand.

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]