#!/usr/bin/perl -w
use strict;
use MIME::Base64;
print "Press Enter to exit. \n";
print "Input you string: ";
my $line;
while( $line = <STDIN> )
{
  if( $line ne "\n" ){
    chomp($line) ;
    print "Base64 encode is : " . encode_base64($line) ;
    print "Input you string: ";
  }
  else
  {
    exit;
  }
}