commit for archiving
This commit is contained in:
8
Perl/bin/decode-base64
Normal file
8
Perl/bin/decode-base64
Normal file
@@ -0,0 +1,8 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use MIME::Base64 qw(decode_base64);
|
||||
|
||||
while (<>) {
|
||||
print decode_base64($_);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user