Perl ile Base64 Decoder Scripti

Scriptimizin adından da anlaşılacağı gibi amacı base64 ile decode edilmis değerleri bizlere anlıyacağımız şekilde çevirmektir.

#!/usr/bin/perl
#Base64-decoder.pl
#Decode from base64
#Writen by savas saygili
print STDERR << "EOF";
Usage: ./base64-decoder.pl decode-string

Ex. : ./base64-decoder.pl dGVzdDp0ZXN0
EOF
print "\n";
use MIME::Base64;
print "64 bit decode value is ";
print decode_base64 ($ARGV[0]);
print "\n";