my $type="w";
&print_summary;

sub print_summary
{
	 if($type=~/w/)
	{
		print "hello\n";
	}
}
##</code><code>##

sub print_summary
{
	 if($type=~/w/)
	{
		print "hello\n";
	}
}
my $type="w";
&print_summary;