54 }

    54 }

    55 close OUT;

    55 close OUT;

    56 

    56 

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

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

    58 $scp->scp($uid,'root@192.168.0.138:/var/www/download/');

    58 $scp->scp($uid,'root@192.168.0.138:/var/www/download/');

    61 __END__

    60 __END__

    62 

    61 

    63 # Test

    62 # Test

    64 my $x=0;

    63 my $x=0;

    65 open( OUT, ">/var/www/$uid.html" );

    64 open( OUT, ">/var/www/$uid.html" );