mirror of
https://github.com/imapsync/imapsync.git
synced 2024-11-17 08:12:48 +01:00
14 lines
181 B
Perl
Executable File
14 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 ;
|