#!/usr/bin/perl -w 
#
# This is the main script
#

use strict;
require "test.pl";

somefunc("test");