open (STDOUT, ">", $logfile) or die $!;
print "blarhabarber\n";