#!/usr/bin/perl -w

    use strict;
    use POSIX 'tmpnam';

    print tmpnam(), "\n";