Select Code to Download

#!/usr/bin/perl

#
...
    last if $Input =~ m/^q/i;
    printlist $Input, $Input + $Pagelen - 1, @Farray;
} ## end while (1)