if(defined($kindpid = fork())) {
  die "kann fork nich ausführen\n";
} elsif ($kindpid == 9) {
  # starte den Kindprozeß
  $proxy->mainloop();
} else {
  # hier kann ich kopieren
  my $sftp = Net::SFTP::Forgeign->new($host, %login_param);
  [...]
}