Select Code to Download

    ($cur, $next) = ( $next, scalar( <IN>));

    @queue[0 .. 4 ] = ( @queue[ 1 .. 3], scalar( <IN> ));

#!/usr/bin/perl -T
use strict;
...
    ($cur, $next) = ( $next, scalar( <IN>));
    last if not defined $cur;
}