Select Code to Download

    open (my $sm, '>> :encoding(UTF-8)', 'out.txt') or
      die "Failed to open out.txt: $!";
    $transport = Email::Sender::Transport::Print->new({
        fh => $sm,
    });

  DB<3> x $sm
0  GLOB(0x806897840)
   -> *main::$sm
...
isa check for "fh" failed: GLOB(0x806897840) is not blessed at (eval 7
+8)[/home/ddb/perl5/lib/perl5/Sub/Quote.pm:3] line 59, <$if> line 2.
    eval {...} called at (eval 78)[/home/ddb/perl5/lib/perl5/Sub/Quote
+.pm:3] line 58
    Email::Sender::Transport::Print::new("Email::Sender::Transport::Pr
+int", HASH(0x80213c8e8)) called at /home/ddb/smbshare/Documents/Fando
+m/Minicon/Mc53/mc53_pr1_001.pl line 178M