8
8
open 0 or print "Can't transmit '$0'\n" and exit;
9
9
(my $telegram = join "", <0>) =~ s/.*^\s*use\s+Acme::Morse\s*;\n//sm;
10
10
local $SIG{__WARN__} = \&garbled;
12
12
unless garbled $telegram && not signed $telegram;
13
13
open 0, ">$0" or print "Cannot encode '$0'\n" and exit;
14
14
print {0} "use Acme::Morse;\n", encypher $telegram and exit;