#!/usr/bin/perl -w use CGI; $query = new CGI; # Tell perl to send a html header. # So your browser gets the output # rather then (command line # on the server.) print "Content-type: text/html\n\n"; # print your basic html tags. # and the content of them. print "Hello World!! "; print "\n"; print "

Hello world

"; print ""; print "\n"; my $prgm = system ('ssh root\@1\.1\.1\.1\executable1\a1'); if ($? == -1) { print "Command Failed: $!\n"; } else { print "Command exited with value %d", $? >>8; } print $prgm;