package SomeClass; sub run { my $self = shift; my $fluxcompensator = FluxCompensator->new( jigawatts => 1.12 ); $fluxcompensator->travel_to( '1955-11-05' ); } # runner script: SomeClass->new->run;