Use eq not == for Perl script