Select Code to Download

        paraprint <<EOF;
$0 has detected an error while trying to send your message: $error.
...
Your message may not have been sent. You will now have a chance to sav
+e a copy to disk.
EOF
        SaveMessage();

sub SaveMessage {
    my $file_save = $outfile || "$progname.rep";
    my $file = _prompt( '', "Name of file to save message in", $file_s
+ave );