treebird/perl/main.pl

use strict;
use warnings;

sub square
{
    2 * 2;
}

print "Hello treebird" . square;