use File::Basename;

my $base = dirname $0;
chdir $base
    or warn "Couldn't find base directory '$base'. Using current directory.";