BEGIN { push @INC, '/root/perl5/lib/perl5'; } use Digest::MD5::File qw(file_md5_base64 file_md5_hex file_md5 md5 md5_hex md5_base64);