1 #!/usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 use CGI;

     6 use CGI::Carp qw(fatalsToBrowser);

     7 use Net::SCP;

     8 

     9 my ($id, $name, $value, $uid);

    10 read (STDIN, $id , $ENV{'CONTENT_LENGTH'} );

    11 ( $name, $uid ) = split( /=/, $id );

    12 

    13 chomp($uid);

    14 my $scp=Net::SCP->new();

    15 $scp->scp("/var/www/tmp/$uid",'root@192.168.0.138:/var/www/tmp/');

    16 __END__