
if (-d "hpjdk") {
  print "ok\n";
}

#while ($file = <ARGV>) {
#  print "$ARGV\n";
#}
