=code is as follows. #########code1############ #!/usr/bin/perl print "Content-type:text/html\n\n"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; ################################## ##############code-2############## if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buf); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; if($value =~ /^\d{2,3}\.\d{2,3}\.\d{2,3}\.\d{2,3}$/){ $ip=$value;} elsif($value !~ /\d{2,3}\.\d{2,3}\.\d{2,3}\.\d{2,3}/ && $value !~ /Submit/){$pwd=$value; } } } chomp($ip,$pwd); use Net::SCP::Expect; $scpe= Net::SCP::Expect->new; $svr = "root\@$ip"; $user='root'; $file ='app_talkdetect.so'; $scpe->login("$user","$pwd"); $scpe->scp("$svr:/home/$file", "/home/"); print "....done\n"; ######################################