#!/usr/bin/perl

my $username="user1";
my $password="password";
my $host="localhost";
my $CAT = "/usr/bin/cat";
my $LAST = "/usr/bin/last";

&start_login;

print "@vacation_str\n";

sub start_login
  {
    my $telnet = new Net::Telnet; 

    telnet_login($username,$password,$host,\$telnet);

    @vacation_str=$telnet->cmd("$CAT /home/$username/.vacation.msg");
                                  
    telnet_close(\$telnet);       
  }
   
sub telnet_login
{
    use Net::Telnet;
    my ($username, $password, $host, $telnet) = @_;
    my $error_msg = "Incorrect username or password, please try again"
+;
    my $error_type = "ERROR";
    $$telnet = new Net::Telnet ('Timeout'=>'7',
                                'Errmode'=> sub { &report_error($error
+_type,$error_msg); },
                                'Prompt'=> '/.*([\$#\%>~]|\\\[\\e\[0m\
+\\] \[0m)\s?/' );
    $$telnet->open(Host=>$host);
    $$telnet->login($username,$password);
}
 
sub telnet_close
  {
    my $telnet=shift;
    $$telnet->close; 
  }
[download]