#!/usr/bin/perl -w

use strict;
use warnings;


my $test = qx'fgrep "(22.5.1983)" /test/old/* -l';

print "Debug: ".$test."\n";