package Workflow;

sub method {
  my $self = shift;
  .
  .
  .
}

package Desk;

use base qw/Workflow/;

sub new { bless \( my $scalar ), ref $_[0] || $_[0] }

package main;

my $desk = Desk->new();

$desk->method();