Untitled

#!/usr/bin/perl -w

$flag = 0 ;
chomp($b = <STDIN>);

open CONFIG, $ARGV[0];
while(<CONFIG>) {
        if($_ =~ $b) {
                print "Success \n";
                $flag = 1;
                last;
        }
}
if($flag != 1) {
        print "Failure\n";
}