#!/usr/bin/perl

use strict;
use warnings;

my $a = ( print "Hello world\n" );
print "The answer is $a\n";

__END__