# -*- perl -*- use strict; use warnings; use tests::tests; check_expected ([<<'EOF']); system call! EOF pass;