Select Code to Download

package Queue;
use warnings;
...
}

return 1;

use warnings;
use strict;
...
print $line, "\n";
print $line, "\n";
print $line, "\n";

C:\Perl\bin>perl myqueue.pl
a
...
c

C:\Perl\bin>