sub getFileName {
    my $dir  = shift;
    my $file = shift;

    opendir(DIR, $dir);
    my @dirContent = readdir(DIR);
    closedir(DIR);

    foreach my $content (@dirContent) {
        if($file =~ /^$content$/i) {
            # filename matches
            return $content;
        }
    }
    return '';
}