jars@jars-desktop:~/community$ perl hostname.pl 
<<ikak303
>>8jars@jars-desktop:~/community$ cat hostname.pl 
$host=`./hostname_ikak303`;

$stringlaenge= length($host);
print "<<", $host, ">>";
print $stringlaenge;
jars@jars-desktop:~/community$ cat hostname_ikak303 
#!/bin/sh

echo "ikak303";