use File::Basename;
use File::Spec;
use Cwd;

my $base_dir = File::Spec->rel2abs(dirname $0);
chdir $base_dir
  or die "Couldn't set '$base_dir' as working directory: $!";