use warnings; use strict; open EXE, "cmd.exe" or die "Can not open cmd.exe:$!\n"; open EXEBACK, ‘>‘, ‘c.exe‘ or die "Can not open c.exe:$!\n"; binmode(EXE); binmode(EXEBACK); while(<EXE>){ print EXEBACK $_; } close EXE; close EXEBACK;
原文：http://www.cnblogs.com/perl6/p/6809747.html