#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

open(UUENCODE, "uuencode.pl |");  # Win32: "perl uuencode.pl |"
@lines = <UUENCODE>;
close(UUENCODE) || die "Fehler in uuencode.pl";

print unpack('u', join('', @lines));