Help for this page

Select Code to Download


  1. or download this
    my @cur_admin_lines = do {
   open(my $fh, '<', $curAdmins)
      or die("Unable to read list of admins ($curAdmins): $!\n");
   <$fh>
};
  2. or download this
    my $cmd = "echo \"$msg\" | mail ...";
system("$cmd");
  3. or download this
    my $cmd = "mail ...";
open(my $fh, '|-', $cmd)
   or ...;
print $fh $msg;
close($fh);