my $cmd = 'type \\PROGRA~1\\Mitel\\OPSManager\\Data\\export.out';

 $t = new Net::Telnet (Timeout => 10,
						Prompt => '/[>] $/');
 $t->dump_log($dump_file);
 $t->input_log($input_log);
 $t->open("10.0.75.1");
 $t->waitfor(String=>"login");
 $t->print($username);
 $t->waitfor(String=>"password");
 $t->print($passwd);
 $t->waitfor(String=>">");
 @lines = $t->cmd(String=>$cmd,
				  Prompt => '/\\[a-zA-Z0-9]*> $/',
				  Timeout=>500);