my @test = qx'fgrep "(22.5.1983)" /test/old/* -l';
print "Debug: ",@test,"\n";