package method2;
sub new{
	my $class = shift;

	return bless \&scan, $class;
}

sub scan{
	my @results = qw/the quick brown fox/;
	#!do scan;
	return \@results;
}
1;