use File::Spec::Functions qw( rel2abs );
use File::Basename        qw( dirname );
BEGIN { chdir(dirname(rel2abs($0))); }