#!/usr/bin/perl

require "find.pl";

# Traverse desired filesystems


&find('.');

exit;
sub wanted {
    /^.*\.bat$/ &&
    print("$name\n");
}