Select Code to Download

while(read(filehandle,$buf,60*57){
$unf .=encode_base64($buf);
}

#!/usr/bin/perl
 use MIME::Base64;
...
print "$unf";
close FILE;
close LOG;