view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

                         DIST_DEFAULT => 'README all tardist',
                         COMPRESS => 'gzip -9f'
                        },
              ($ExtUtils::MakeMaker::VERSION >= 6.3002 ?
               (LICENSE      => "perl") : (),
              ),
);

sub MY::postamble {
  q{README: lib/Convert/UU.pm Makefile
	chmod +w $@
	pod2text lib/Convert/UU.pm > $@
}
}

puudecode  view on Meta::CPAN

use strict;
use Convert::UU 'uudecode';
die "Usage: $0 file\n" unless @ARGV==1;
open F, $ARGV[0] or die "Couldn't open $ARGV[0]: $!";
my($uudecoded_string,$file,$mode) = uudecode(\*F);
open F, ">$file" or die "Can't open >$file: $!";
binmode(F);
print F $uudecoded_string;
close F;
chmod oct($mode), $file;

__END__

=head1 NAME

 puudecode - perl replacement for uudecode

=head1 SYNOPSIS

 puudecode inputfile