Next | Welcome to my ~/bin | 132 |
if ($opt_m) { open MSG, $opt_m or die "Couldn't open message file $opt_m: $!; aborting"; @MSG = <MSG>; close MSG; } else { print STDERR "Enter message on standard input; use . to terminate.\n"; while (<STDIN>) { last if $_ eq ".\n"; push @MSG, $_; } }
Nothing exciting here
Next | Menu | Copyright © 2005 M. J. Dominus |