use strict; my($a, $b)=glob<>; if($a==$b){ print("Yes"); }else{ print("No"); }