use Path::Tiny qw/ cwd path tempfile /;
## in cwd
path( "temp$_" )->spew("THIS IS DATA") for 1 .. 5;
## in $TMP directory
tempfile( 'tempjamesXXXX' )->spew("THIS IS DATA") for 1 .. 5;