#!/usr/bin/perl

# comment out these two lines to change meaning of construct in main
sub System { return "SystemSub " }
sub out { return "OutSub " };

my $val = main();
print "\n'$val'\n";

sub main {
  System.out.print("Just another perl hacker?");
}