Select Code to Download

#!/usr/bin/perl


...
        print $_;
}
close ($sock);

my $new_sock = $sock->accept();
        while(<$new_sock>) {
        open my $fh, '>>', $file or die $!;
close $fh;