my $name = split("\.", $filename)[0]