#!/usr/bin/perl
use strict;
use warnings;

sub welt {
    return "welt ";
    sub hallo {
        return "hallo ";
    }
}

print hallo, welt, "\n";