#!/usr/bin/env perl

use strict;
use warnings;
use File::Temp qw(tempfile);
use feature qw(say);

say( ( tempfile() )[1] );

__END__