#!perl -w

system("dir") == 0 or die "system failed: $?";

##</code><code>##

C:\>test.pl > test.out
There is not enough space on the disk.
system failed: 65280 at C:\test.pl line 3.