my @cmd = (
    gawk => (
        -f => 'D:\\tools\\scan_tdf.awk',
        'corrtype=ada',
        'FileSuffix=_pkg',
        'TDFname=sys_mma_pfd_gmeter.tdf',
        'PrefixFile=d:\\tools\\PrefixFile',
        'BusNamesFile=d:\\data\\ssi_BusNames ',
        'VAXPATH=NONE',
        'DIRPATH=def',
    )
);

$sts = system { $cmd[0] } @cmd;