#!/usr/bin/perl -w
# 
# This is test.pl
#

use strict;

sub somefunc {
  
  print shift, "\n";
}

1; #file needs to return true on require or use.