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

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