寝起きでボケてた。

      1 #! /usr/bin/env perl
      2 $name = './rpm';
      3 if(-d $name) {
      4 ？？？？print "ARUYO\n";
      5 } else {
      6 ？？？？print "NAIYO\n";
      7 }

ディレクトリの存在確認ならこれだけで良かった。