open (IMG , '>out.png') or die $!;

##</code><code>##

open (IMG , '>$$.png') or die $!;

##</code><code>##

my $filename = $$ . time() . '.png';