--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/htdocs/cgi-bin/scp	Thu Feb 07 14:17:09 2013 +0100
@@ -0,0 +1,16 @@
+#!/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__