#!/usr/bin/perl

my $SED = "/bin/sed";
my $username = "user1";
my $password = "password";
my $host = "localhost";

&start_login;

sub start_login
{    
   my $telnet = new Net::Telnet( -host => $hostname,
                                  -telnetmode => '');   
   telnet_login($username,$password,$host,\$telnet);

   ### This is the the problem area ###
   @vacation_str=$telnet->cmd("$SED s/\$SUBJECT/SUBJECT/g /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',
                                'Prompt'=> '/.*([\$#\%>~]|\\\[\\e\[0m\\\] \[0m)\s?/' );
    $$telnet->open(Host=>$host);
    $$telnet->login($username,$password);
}