Uploading Your File

!/usr/local/bin/perl

use IO::Pty;
use CGI qw(:standard);
use CGI;
use CGI::Carp qw(fatalsToBrowser set_message);
use CGI::Carp; # send errors to the browser, not to the logfile
use Net::SCP::Expect;
use Term::ProgressBar;

#use CGI::ProgressBar qw/:standard/;

print "Content-type: text/html\n\n";

print "<HTML>";
#print "<H1>Uploading Your File</H1>\n";

my $ipaddress=param("ipaddress");
my $remotepass=param("remotepass");
my $localfile=param("localfile");
my $remotedir=param("remotedir");
my $remoteport=param("remoteport");
my $user="root";

my $filename="./uploads/";

my $file=$filename . $localfile;

my $scpe = Net::SCP::Expect->new(host=>$ipaddress, user=>$user, password=>$remotepass, port=>$remoteport, auto_yes=> '1', auto_quote=> '0');

$scpe->scp($file, $remotedir);