#!/usr/bin/env perl

use strict;
use warnings;

queue("This is: queue(string)\n");
queue('This is: ', "queue(string, string)\n");
queue(\*STDERR, "This is: queue(\\*STDERR, string)\n");
queue(\*STDERR, 'This is: ', "queue(\\*STDERR, string, string)\n");

sub queue {
    my $Q = ref $_[0] eq 'GLOB' ? shift : \*STDOUT;
    my @list = @_;
    $Q->print(@list);
    return;
}