All in One Perl IO