if (eval {require Digest::MD5})
{
my $flcn=Digest::MD5->new();
..
..
}
else
{
my cksum=`/usr/bin/cksum $file`;
.
..
}