Select Code to Download

#!C:\Perl\bin\perl.exe -w
use strict;
...
print(OUT $response->as_string());
print(OUT "\n");
close(OUT) or die("Cannot close out file:$!");

sub encodeemail{
        my ($self, $email) = CGI::self_or_CGI(@_);
...
        }
        return $email;
}