#!/usr/bin/perl -w
######################################################################
# uudecode.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

open(UUENCODE, "uuencode.pl |");
@lines = <UUENCODE>;
close(UUENCODE) || die "Error in uuencode.pl";

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