#/usr/bin/perl -w
use strict;

sub s1 {
  print "hi\n";
}

sub s1 {
  print "hi 2 you\n";
}

print "calling s1...\n";
s1();