use strict;
use warnings;

my %args = @ARGV;

print "Infile: $args{-infile}\n", "Outfile: $args{-outfile}" if ( exists $args{-infile} && exists $args{-outfile} );