#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;

print header;
print start_html("Thank You");
print h2("Thank You");

my %form;
foreach my $p (param()) {
$form{$p} = param($p);
#print "$p = $form{$p}<br>\n";
}
print end_html;

my $mypassword;
$mypassword = '******';

my $var;
my $val;

print header;

foreach $var (sort(keys(%ENV))) {
    $val = $ENV{$var};
    $val =~ s|\n|\\n|g;
    $val =~ s|"|\\"|g;
    #print "${var}=\"${val}\"\n";
}

use Net::SSH::Perl;
print "<br / > Here is where we try to make the ssh<br / >";

my $ssh = Net::SSH::Perl->new('my_personal_box');
    print "<br / >here is the ssh part: $ssh <br / >";
    $ssh->login("my_userid", $mypassword);
		
print end_html;