BEGIN { require feature; $^V =~ /^v(\d+\.\d+)/; feature->import(":$1"); $_initial_cwd = Cwd::getcwd(); }