#!/usr/bin/env perl

use strict;
use Expect;

my $header_template = "\n\n======== system ========\n";

do_date($_) for qw( vftp vwww2 );

sub do_date {
    my ($system) = @_;

    my $header = $header_template;
    $header =~ s/system/$system/;

    my $timeout = 10;
    my $ssh     = Expect->new("ssh $system");
    $ssh->log_file("$system.log");
    $ssh->debug(1);
    $ssh->print_log_file($header);
    $ssh->expect( $timeout, [qr/password/] );
    if ( $ssh->match() =~ m/password/ ) {
        $ssh->send("youcantseeme\n");
    }

    $ssh->expect( 60, [qr/\$\s*/] );
    $ssh->send("hostname\n");
    $ssh->expect( 60, [qr/\$\s*/] );
    $ssh->send("date\n");
    $ssh->expect( 60, [qr/\$\s*/] );
    $ssh->send("exit\n");
    $ssh->close();

}