package Print;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(Print);

our $sout='';

sub Print
{
  $sout .= "@_";
}

END
{
  print $sout;
}
1;