#!/usr/bin/perl
$list = "error";
$err = system "grep i 'error' $list";
print ("value",$err);