#!/usr/local/bin/perl

use strict;

use U;

U->foo() foreach (0..10000);