sub First  { ... }
sub Second { ... }
sub Third  { ... }

{
   my $o = ...;
   $o->First();
   $o->Second();
   $o->Third();
}