Help for this page

Select Code to Download


  1. or download this
    HELO hostname
  2. or download this
    #!/usr/bin/perl

...
print $socket "Your data here\r\n";
print $socket ".", "\r\n";
print $socket "QUIT", "\r\n";
  3. or download this
    #!/usr/bin/perl

...
die "Error in QUIT: $line" 
    unless ($line = scalar <$socket>) =~ /^2/;