view release on metacpan or  search on metacpan

MailBot/UUEncode.pm  view on Meta::CPAN

    my $string = "";

    my ($buf, $nread) = ('', 0);
    while ($nread = $in->read($buf, 4096)) {
	$string .= $buf;
    }
    defined($nread) or return undef;      # check for error

    my $string = pack('u',$string);

    # jfj note filename and content-type

    $string = "\nYour file has been uuencoded:\n\n" .
	"begin 644 myfile\n" . $string . " \nend\n";

    $out->print($string);
    1;
}

1;