sub new
{
    my ($class, %hash) = @_;

    # Create temporary file to store Gnuplot instructions
    if (!defined $hash{_multiplot})     # if not in multiplot mode
    {
        my $dirTmp = tempdir(CLEANUP => 1, DIR => '/tmp');
########### change here
        $hash{_script} = $^O eq 'MSWin32' ? "$dirTmp\plot" : "$dirTmp/plot";