#!/usr/bin/perl

use strict;
use warnings;
use File::Util;
use File::Copy "copy";

my ($f) = File::Util->new();
$f->make_dir('foo/bar/baz', '--if-not-exists');
copy('baz.txt', 'foo/bar/baz') or die "Copy failed: $!";