Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl
use strict;
...
encode_base64( io( $ARGV[0] )->slurp ) > io( $ARGV[1] );

__END__
  2. or download this
    #! /usr/bin/perl
use strict;
...
decode_base64( io( $ARGV[0] )->slurp ) > io( $ARGV[1] );

__END__
  3. or download this
    Z:\>perl encode_base64.pl yearsinservice.pdf yis.b64

Z:\>perl decode_base64.pl yis.b64 yis.pdf