mirror of
https://github.com/imapsync/imapsync.git
synced 2025-06-13 16:04:50 +02:00
13 lines
181 B
Perl
Executable file
13 lines
181 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
use Unicode::IMAPUtf7;
|
|
|
|
my $t = Unicode::IMAPUtf7->new();
|
|
|
|
while (<>) {
|
|
chomp ;
|
|
push( @result, sprintf( "%33s %s\n", $_, $t->decode($_) ) ) ;
|
|
}
|
|
|
|
print @result ;
|