#! /usr/bin/perl
use warnings;
use strict;
use test2();
my $output = testroutine();
print $output, "\n";


##</code><code>##

$ ./test.pl 
This is a test