Perl:base64

#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use MIME::Base64 qw(encode_base64);
 
my $filename;
my $buffer;
 
$filename = param('f');
print "Content-type: text/html\r\n\r\n";
print "\<FILE name='$filename' encoding='base64'\>\r\n";
open(FILE, "$filename") or die "$!";
while (read(FILE, $buffer, 60*57)) {
 print encode_base64($buffer);
}
print "\<\/FILE\>\r\n";