Help for this page

Select Code to Download


  1. or download this
    my $file = "\0" . " " x 256;
$scpfile->Text(GUI::GetOpenFileName(-title=>'SCP',-file=>"\0" . " " x 
+256,-filter => [ "All files", "*.*" ]));
  2. or download this
    my $host = $reds->GetString($reds->SelectedItem());

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