#!/usr/bin/perl

#use strict;
use warnings;

sub search_pattern
{
    my ($file_name, @search) = @_;
    open(LOGFILE, $_[0]) or die("Error: cannot open file '$_[0]'\n");
    while (<LOGFILE>) {
        foreach $pattern (@search) {
        if ( $_ =~ /$search/ ) {