The Perl version of ioup