#!/usr/bin/perl -w
#  vim:ft=perl:ts=4:sw=4:et:is:hls:ss=10:
use strict;
use warnings;

    my  $the_cmd    = 'dir';
    printf "About to call system('%s') ...\n", $the_cmd;
    my  $rc = system( $the_cmd );
    printf "Return code from system() call was %d (0x%04X)\n", $rc, $rc;