Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
    "\x{2660}",
    "\x{2660}",
);
  2. or download this
    sub message {
    my ($to_name, $to_addr, $fr_name, $fr_addr, $subject, $body) = @_;
...
    );
    $msg->send;
}
  3. or download this
    sub message {
    my ($to_name, $to_addr, $fr_name, $fr_addr, $subject, $body) = @_;
...
    );
    $msg->send;
}