#!/usr/bin/perl -w

    use strict;
    use POSIX 'tmpnam';

    print tmpnam(), "\n";

##</code><code>##

    use File::Temp ':mktemp';

    my ($fh, $filename) = mkstemp( "filename.XXXX" );

    print $filename, "\n";