Select Code to Download

} elsif ( $option == 8 ) {
        return(0);  ######change here
...
    print "leftover\n";  ###change here
    <STDIN>;
    }

#!/usr/bin/perl -w
use strict;
...
    print "8. Quit the program\n";
    print "Action: ";   
}