foreach$f(glob"$ARGV[0]/*"){
    open$fh,$f;
    for($i=0;$l=<$fh>;$i++){
        if($i==$ARGV[1]){
            $f=~s/^.+?([^\/]+)$/$1/;
            print"$f $l";
        }
    }
    close$fh;
}