my $argument = $ARGV[0] || die "No parameters given.\n";