package Test;

use strict;

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

1;