Select Code to Download

    while(my $buffer = <$client_socket>){
        ....
        open(my $fh, '>>', $output) or die "Could not open file '$outp
+ut' $!";
        print $fh $buffer;
    }

#!/usr/bin/perl

...

# Start the Main loop
Main();