perl で uuencode

#!/usr/bin/perl

while (read(STDIN, $line, 45)) {
$uuencoded_data .= pack("u", $line);
}
print "begin 666 a.txt\n";
print $uuencoded_data ;
print "`\nend\n";

このスクリプトを uuencode.pl と保存。
実行は実行権限を付けて「./uuencode.pl < ファイル」です。
最初に「begin 666 ファイル名」最後に「`」と「end」という行が必要です。
最後に「`」がなくても Becky! はデコードしてくれましたが、uuencode の出力結果を見るとどんなファイルでもこれが付いているので、本当は必要なのでしょう。
Perlのpackとunpack は、その辺りが足らないのだと思います。

参考: uuencode.pl 参考というかそのまま。