use warnings;
use strict;
sub s1 {
  print "s1\n";
  return "r1";
}
sub s2 {
  print "s2\n";
  return "r2";
}
sub new {
  print "new\n";
  print map "$_\n", @_;
}
my $mw = new s1(), s2();