my $text = do { open my $fh => $file or die "open: $!\n"; local $/; <$fh>; }; #### my $text = `cat $file`; #### system mkdir => -p => $dir;