Select Code to Download

use Storable qw( nstore_fd );
nstore_fd(\@data, $rem_socket);

use Storable qw( fd_retrieve );
my $data = fd_retrieve($rem_socket);