if ( $ARGV[$i] eq "devl" ) {
     print  "$ARGV[$i]\n";
}