use FindBin qw($RealBin);

##</code><code>##

    use File::Spec::Functions qw( rel2abs splitpath catpath );
    my $RealBin = catpath( (splitpath rel2abs($0))[0,1] );

##</code><code>##

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