Select Code to Download

open(my $AFILE, '<', $file) || warn "ERROR - Couldn't open $file - $!\
+n";
while (<$AFILE>) {
    #call the processing as a subroutine 
}
close $AFILE || warn "ERROR - Couldn't close $AFILE - $!\n";