my $host = $reds->GetString($reds->SelectedItem());

my @cmd = ( "pscp", "-pw", $redpass->Text(), Win32::GetShortPathName($scpfile->Text()), $userid.'@'.$host.':'.$redscp->Text() ) ;
my ($in, $out, $err);

my $h = start \@cmd, \$in, \$out, \$err, debug => 2;
while ($out !~ /100/) {print $out;pump $h;}
finish $h or die "returned $?";