use strict;
use warnings;

sub base_page
{
    
    2 * 2;
}

print "Hello from Perl\n";