sub run {
    my $class = shift;
    my $obj = $class->new(@_);
    ... do stuff with $obj ...
}


# In user
Class->run(...);