Backup Baystack 350T

open original image

Hello,

I'm a newbee, i want to backup with scripts Baystack 350 T. I thought of this scripts:

but after login, i don't know:

#! /usr/bin/perl -w

sub Connect { $PE = ('xxx.xxx.xxx.xxx'); $PasswordPe = ('xx'); $TimeNet = 300; #$TimeCmd = 15; $mode = "return"; $filename = "D:/nortel.txt";

use Net::Telnet (); if ($firstses = Net::Telnet->new(Host => $PE,Timeout => $TimeNet, Errmode => $mode)) { $firstses->input_log($filename); $firstses->open($PE); $firstses->waitfor('Enter Ctrl-Y to begin.'); $firstses->print("\\cY"); $firstses->waitfor('Enter Password:'); $firstses->print("$PasswordPe"); $firstses->print("g test"); # i'm in the Configuration File Download/Upload menu, with "test" for Configuration Image Filename $firstses->close; $firstses->close; }

thank's for your answer.