use strict;
use warnings;
use Net::Telnet;

my $t;
my $host = "IP of XP machine";
my $perl_path = "/msg/spgear/tools/bin/perl";
my @lines;

$t = new Net::Telnet( Timeout => '10') || die "Could not create Telnet object: $@ -- $!\n";
$t->open($host) || die "Could not open connection to host: $host $@ -- $!\n";