$match = ("$in{'pwd'} = $PWD");
if($match ne 'yes'){&error("パスワードが違います");}


if ( $in{'pwd'} ne $PWD ) { &error( "パスワードが違います" ); }