open(my $fh, '>', $filename);
    print $fh $message;
    myownfunction($param1, $param2);
    close $fh;