%WEATHERFILE-I-OPENFILE, Opening Input File: SYS$Weather_Data:20010301.WST
%WEATHERFILE-I-OPENFILE, Opening Input File: SYS$Weather_Data:20010302.WST
.
.
.
etc

Here is my perl code:

use strict;
use Net::Telnet;

my $name = 'NAME';
my $passwd = 'PASSWORD';

my $telnet = Net::Telnet->new(
			      Input_Log  => "input.log",
			      Output_Log => "output.log",
			      Host       => "HOST",
			      Timeout    => "20" 
			     );

$telnet->login(Name     => $name,
	       Password => $passwd,
	       Prompt   => '/HOST/i');

$telnet->cmd("$mycommand");
$telnet->cmd("lo"); #logout
$telnet->close;

exit;