#! /usr/bin/perl -w

use strict;
use Net::SMTP;

my $host = shift || die "No host specified on command line.\n";
my $port = shift || die "No port specified on command line.\n";

my $s = Net::SMTP->new( $host, PeerPort => $port );
print $s->banner(), "\n";

$s->to( 'postmaster' );
$s->data();
$s->datasend( scalar gmtime );
$s->datasend( "\n" );

my $foo = <STDIN>;
$s->dataend();

$s->quit();