#!/usr/bin/perl

use warnings;
use strict;

my $infile = $ARGV[0];
die("Bitte einen korrekten Dateinamen übergeben!")
    if ($infile =~ /\.CATDrawing$/)