Shell Programming and Scripting

use Net::SSH::Perl::SSH1 ;

$scon = Net::SSH::Perl->new ("com123.sever.mydomain.com",(protocol=>'2',port=>'22',debug=>'true'));
$scon->login("user123","pass123");
open(FILE, "/tmp/test.o") ||
print("Unable to open test.o");
{
  $line = <FILE>;
  while ($line ne "") {
    print ($line);
    $line = <FILE>;
  print "Reading file...";
  }
print "Exiting...";
}

sub calculate {
$scon = Net::SSH::Perl->new ("com123.user123.mydomain.com",(protocol=>'2',port=>'22'));
$scon->login("user123","pass123");
print "connected ...\n";

$data_file="test4.o";
open(DAT, "$data_file") || die("Could not open file!");
@raw_data=<DAT>;
foreach $num (@raw_data)
{
chomp($num);
($num1,$num2,$num3)=split(' ',$num);
print "Number 1 is $num1, Number2 is $num2, Number3 is $num3\n";
}
close(DAT);
}

Could not open file! at hello.pl line 43.

Could not open file! at hello.pl line 43.

    while executing
"::perl::CODE(0x55eb4cc)"
    invoked from within
".c.calc invoke "
    invoked from within
".c.calc instate {pressed !disabled} { .c.calc state !pressed; .c.calc invoke } "
    (command bound to event)

open(DAT, "$data_file") || die("Could not open file!");

open(DAT, "+>" . $data_file) || die("Could not open file!");

Tkx::ttk__button(".c.calc", -text => "Connect to server", -command => sub {calculate();});

use strict;
use warnings;
use diagnostics;

use Net::SSH::Perl::SSH1 ;