mkpath

#!/usr/bin/env perl

use strict;
use warnings;

use Path::Tiny;

my $path = pop @ARGV;

if (!$path) {
    print "\nUsage: mkpath path/to/file.txt\n";
    exit;
}

path($path)->touchpath;