Help for this page

Select Code to Download


  1. or download this
    print FILE "$when|$to|$from|$subject|$body\n";
  2. or download this
    my $encoded_body = pack ("u", $body);
$encoded_body=~s/\n//g;
print FILE "$when|$to|$from|$subject|$encoded_body\n";
  3. or download this
    Fri Dec 15 15:34:10 2000|to@net.net|from@net.net|Hello|E5&AI<R!I><R!T:
+&4@><V%M><&QE(&UE><W-A9V4A#0H-"D)Y92X-"@`` 
>
  4. or download this
    $decoded_body = unpack ("u", $encoded_body);
  5. or download this
    This is the sample message!

Bye.