#!/usr/bin/perl
# script test_main.pl

use test1;

my $var = test1::abc('test.pl');
print $var,"\n";