#!perl -w

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