#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11152428
use warnings;

my $job = 'something';

sub queue
  {
  print "simple queue: '@_'\n";
  }

sub OTHER_QUEUE::queue
  {
  shift;
  print "a different queue: '@_'\n";
  }

queue $job;
queue OTHER_QUEUE $job;

##</code><code>##

simple queue: 'something'
a different queue: 'something'