#! /usr/bin/perl -w use strict; use Win32::Autoglob; use Getopt::Long; my $outputFile = ''; my $logFile = ''; my $result = GetOptions ("output=s" => \$outputFile, "logfile=s" => \$logFile); print "Output=$outputFile\n"; print "Log=$logFile\n"; $,=' '; print "Files to work with:",@ARGV;