Select Code to Download

$ cat if-mail.pl 
#!/usr/bin/perl
exit 0 unless (my @lines = <STDIN>);
...
$ ./if-mail.pl root@localhost -s "try running echo *"
TEST
^D

$ mail
       From: Krylov Ivan <aitap@tarkus>
...

------ This is a copy of the message, including all the headers. -----
+-
<...>