in reply to DOS's %0\..\ Perl Equivalent
#!/usr/bin/perl use FindBin qw($Bin); print qq(Welcome to $Bin); [download]
...badly. (: