#!/usr/bin/perl

BEGIN
{
	eval "use nosuchmodule;";

	if ($@)
	{
		print "'use' failed\n";
	}
	else
	{
		print "'use' ok\n";
	}
}