#!/usr/bin/perl -w
use strict;

my $status = print "this is a test\n";
print "first print returned $status\n";
__END__
output:
this is a test
first print returned 1