Select Code to Download

    my $text = do {
        open my $fh => $file or die "open: $!\n";
        local $/;
        <$fh>;
    };

    my $text = `cat $file`;

    system mkdir => -p => $dir;