$tmpdir = $_[0]->_tmpdir( @ENV{qw(TMPDIR TEMP TMP)},
                            'SYS:/temp',
                            'C:\system\temp',
                            'C:/temp',
                            '/tmp',
                            '/'  );

##</code><code>##

  $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR},
                            $ENV{TEMP},
                            $ENV{TMP},