Hi Friends, I have written a CGI script to check uptime on remote server using html which calls perl CGI script.

 
cat mainriinfo.cgi

#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH2::Perl;

my $user = "root";
my $password = "adxyusc12";
my @hosts = qw(172.23.12.110);

foreach my $host (@hosts){
my $cmd = "/usr/bin/uptime";
my $ssh = Net::SSH2::Perl->new( $host, port => 22);
$ssh->login($user,$password);

my($out) = $ssh->cmd($cmd);
my ($time,$uptime) = (split /\s+/,$out)[1,3];
chop $uptime;
print "$host has been up $uptime\n";
}

print <<END;
<html>
  <head><title>Hello </title></head>
  <body>
    <p>Script Finished</p>
  </body>
</html>
END

[download]

After executing, I am getting below error: 

 
[Wed Jul 20 11:45:40 2016] [error] [client 172.17.17.43] (8)Exec forma
+t error: exec of '/var/www/html/mainriinfo.cgi' failed, referer: http
+://172.23.12.110/getriinfo.html
[Wed Jul 20 11:45:40 2016] [error] [client 172.17.17.43] Premature end
+ of script headers: mainriinfo.cgi, referer: http://172.23.12.110/get
+riinfo.html

[download]

In reply to Net::SSH2 CGI script fails by suresh3566

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.