#!/usr/bin/perl#

use strict;
use warnings;

# Uebergabe-Parameter pruefen
if ( !defined( $ARGV[0] ) )
{
	print "Example: param.exe <Filemask>\n";
	print "\n";
	exit;
}
my $p_sDirmask = $ARGV[0];
print "p_sDirmask: #$p_sDirmask#\n";