$filename =~ /(.*)\./;
my $basename = $1;