#!/usr/bin/perl

use strict;
use warnings;

sub lic_file(){
   opendir(DIR,".") || return -1;
   while($_ = readdir(DIR)){
      (return 0) if (/license/i && -f $_);
   }
   closedir(DIR);
   return 1;
}

return 1;
