my $fh = IO::File-> new( 'some.log', 'w' );