#! /usr/bin/perl -ws
use mytest2;
print mt2(55), "\n";

##</code><code>##

#! /usr/bin/perl -w

package mytest2;

require Exporter;
our @ISA = qw( Exporter );
our @EXPORT = qw( mt2 );

my $a = 23;

sub mt2 {
  my $b = $_[0] * 2;
#  return $a + $b;
}

1;