Select Code to Download

print "abc\n";
print "def\n";
...
ghi
EOD

use CGI qw(:cgi);

...

  print $q->redirect(
                   -url    => $_[0]                  );

&get_data (\$current_date, \$remote_host, 
           \$remote_addr, \$server_name);
...
    $$remote_addr = $ENV{'REMOTE_ADDR'};
    $$server_name = $ENV{'SERVER_NAME'};
}

($current_date, $remote_host, 
  $remote_addr, $server_name) = get_data();
...
             $ENV{'REMOTE_HOST'}, $ENV{'REMOTE_ADDR'},
             $ENV{'SERVER_NAME'};
}