open my $fh, '<', 'myfile'; print $fh, "something\n";