my $fh = open "<","filename"; $fh->print "stuff"; $fh->close;