my $wort = "tomas";
print $wort;
chomp (my $temp = <>);
if ($temp) {$wort = $temp}
print "$wort\n";