#!/usr/bin/perl

use strict;
use warnings;



__END__

##</code><code>##

# use File::Find;

##</code><code>##

sub foo {
    my $var=shift;

}