9 lines
107 B
Perl
9 lines
107 B
Perl
#!/usr/bin/perl
|
|
|
|
use MIME::Base64 qw(decode_base64);
|
|
|
|
while (<>) {
|
|
print decode_base64($_);
|
|
}
|
|
|