#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Net::SCP;

my ($id, $name, $value, $uid);
read (STDIN, $id , $ENV{'CONTENT_LENGTH'} );
( $name, $uid ) = split( /=/, $id );

chomp($uid);
my $scp=Net::SCP->new();
$scp->scp("/var/www/tmp/$uid",'root@192.168.0.138:/var/www/tmp/');
__END__
