sub do_stuff {
    ($file, $message) = (@_);
    open FILE, ">>$file";
    print FILE $message;
    close FILE;
    return true;
}