#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
Getopt::Long::Configure("ignore_case");
my %options;
GetOptions(\%options, "SourceFolder=s");
print $options{SourceFolder};