open(PIPE, "route -n |")  || die "cannot open route: $!";
while (my $line = <PIPE>) { 
print $line; 
# Ausgabe von route
}               
close(PIPE) || die "can't close route: $!";