package UNIVERSAL;

sub new {
    bless({}, $_[0]);
}

sub loop {
    my $self = shift;
    $self->SUPER::loop();
}

package main;
Universal->new->loop();