use strict;

package FOO;

sub new {};

sub try {
    print "Trying...?\n";
}

package main;

try {
  new FOO;
};