Help for this page

Select Code to Download


  1. or download this
        use FindBin qw($RealBin);
  2. or download this
        use File::Spec::Functions qw( rel2abs splitpath catpath );
    my $RealBin = catpath( (splitpath rel2abs($0))[0,1] );
  3. or download this
        use File::Spec::Functions qw( rel2abs );
    use File::Basename qw( dirname );
    my $RealBin = dirname( rel2abs($0) );