my $file = "\0" . " " x 256;
$scpfile->Text(GUI::GetOpenFileName(-title=>'SCP',-file=>"\0" . " " x 256,-filter => [ "All files", "*.*" ]));