Select Code to Download

    use File::Spec::Functions qw( rel2abs splitpath catpath );
    my $RealBin = $0;
...
        $_ = readlink($_) while -l $_;
        $_ = catpath( (splitpath rel2abs($_))[0,1] );
    }

    use File::Spec::Functions qw( rel2abs );
    use File::Basename qw( dirname );
    my $RealBin = $0;
    $RealBin = readlink($RealBin) while -l $RealBin;
    $RealBin = dirname( rel2abs($RealBin) );