my $usage = "Usage: $0 [path]\n default: value of env.variable LOGS_EV\n";

my $destdir;
if ( @ARGV ) {
    $destdir = $ARGV[0];
}
elsif ( $ENV{'LOGS_EV'} ) {
    $destdir = $ENV{'LOGS_EV'}
}
else {
    warn "Please supply a path or set LOGS_EV\n\n";
    die $usage;
}