use warnings; use strict; use auto; use Text::UpsideDown; use Win32::Unicode::Console; use Win32::Console; print ("TEST RIGHT SIDE UP\n"); printW upside_down ("TEST UPSIDE DOWN\n"); printW upside_down ("I \x{2665} Perl\n\n"); sleep (10); Output on Screen: TEST RIGHT SIDE UP ?MO? ??I??