# omit parameters

use strict;
use warnings;

use Net::Telnet;
open (STDERR, ">>err.log") or die "error!$!\n";

sub init{

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

my $tt = <STDIN>
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);
     print STDERR %ENV;
}