Select Code to Download

    #!/usr/bin/perl -w

...
    use POSIX 'tmpnam';

    print tmpnam(), "\n";

    use File::Temp ':mktemp';

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

    print $filename, "\n";