my @frames = $mech->expand_frames();

my $frame_ctr = 0;

for ($frame_ctr = 0; $frame_ctr < @frames; $frame_ctr++)
{
	printf("frames[%s] = %s\n", $frame_ctr, $frames[$frame_ctr]);
}