Select Code to Download

#!/usr/bin/env perl

...
    $Q->print(@list);
    return;
}

$ ./pm_11152428_opt_arg.pl
This is: queue(string)
This is: queue(string, string)
This is: queue(\*STDERR, string)
This is: queue(\*STDERR, string, string)

$ ./pm_11152428_opt_arg.pl 2>/dev/null
This is: queue(string)
This is: queue(string, string)

$ ./pm_11152428_opt_arg.pl 1>/dev/null
This is: queue(\*STDERR, string)
This is: queue(\*STDERR, string, string)