Life before ‘autodie’ 

mkdir($path);
chdir($path);
open(my $fh, '>', $file);