in reply to perl internal for present script without full path?

$0 =~ s,.*/,,; or use File::Basename

--
Tatsuhiko Miyagawa
miyagawa@cpan.org