$savestr = "whatever\n";
&Savetofile($savestr);

sub Savetofile
{
    my $string = shift;
    if (defined($string)) {
# all the open/lock/print/close stuff goes here
    }
}