use strict;
use warnings;

sub testsub ($)
{
  my $test=shift(@_);
  print $test;
}

return 1;