my $scp ="ssh user@host1 -t 'scp datei user@host2:/pfad/'";

open (my $cmds, "-|", "$scp") || die "Error: $!\n";
while ( defined( my $line = <$cmds> )  ) {
chomp($line);
print "$line\n";
                }
close $cmds || warn "close failed: $!";