use MIME::Base64 qw(encode_base64);

   open(FILE, $ARGV[0]) or die "$!";
   open(OUTPUTFILE, ">newimg.jpg") or die $!;
   binmode FILE;
   binmode OUTPUTFILE;

   while (read(FILE, $buf, 60*57)) {
       print OUTPUTFILE encode_base64($buf);
   }

   close(FILE);
   close(OUTPUTFILE);