This is just FYI. If you want to use directory as library on unix, where your script is being called. for e.g.

>perl /home/abcd/script.pl
[download]

then you can also use following code

BEGIN {
       if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
               $runtimedir = $1;
               $program = $2;
       }
}

use strict;
use lib $main::runtimedir;
[download]