请各位达人帮忙看一下代码

请各位达人帮忙看一下代码
use strict;
use warnings;
use Getopt::Std;
our %opts;
my $input_dir = ".";
my $input_file = "skitter_as_links.*";
my $output_dir = ".";
my $output_file = "skitter_as_graph";
my $start_date = 00000000;
my $end_date = 99999999;
my %graph;

# search for input files
sub GetFiles {
my ($dir, $file_pattern) = @_;
my %date2file;
foreach my $file (`find $dir -name '$file_pattern'`) {
if ($file =~ /(\d{8})/) {
my $date = $1;
$date2file{$date} = $file;
}
}
return %date2file;
}
按照我的理解，这段代码是找到当前目录下，名字为"skitter_as_links.*"这样的文件，但是运行后系统提示：File not found - skitter_as_links.*" 。而我在程序所在目录下确实放置了这样的文件啊。
请问怎么回事呢