my $x = print "hi\n";
print "$x\n";

__END__
hi
1