#!/usr/bin/perl
my $zahl=3**3; #27
print "Dritte Wurzel aus $zahl : ".($zahl**(1/3))."\n";