in reply to How do I get the full path to the script executing?
Moduleless approach:
use vars qw($Bin $Script); BEGIN { ($Bin, $Script) = split /([^\/\\]+)$/, $0 } [download]
Originally posted as a Categorized Answer.