open my($fh), '>', $filename
        or die "Cannot open '$filename': $!\n";
    print $fh $message;
    close $fh;

    myownfunction($param1, $param2);