# omit parameters

use strict;
use warnings;

use Net::Telnet;


sub init{

	read_par();
	#telnet_login("sh /backup/auto_backup.sh > /backup/backup.log &");
	telnet_login("echo 1 >>1.txt"); #just a test
}
init();


sub telnet_login{
	my $command = shift;
	my $tl = Net::Telnet->new() or die "???\n";
	$tl->open($remote_server);
	$tl->login($username,$password);
 	my @output = $tl->cmd($command);

##</code><code>##

run: C:\perl\bin\perl D:\snippet.pl
start in: C:\perl\bin
and enabled check box is also ticked.
#please see scheduled task for real appreance!