Select Code to Download

# at the top of the script

...

unless (($input->{to}) && ($input->{from}) && ($input->{body}) && ($in
+put->{id})) {

>steveb@cpan.org<

open my $wfh, '>', '/home/user/debug.txt' or die $!;

for (qw(to from body)){
    print $wfh "\n\n>$input->{$_}<\n\n";
}