sub get_basename {
  my $basename;
  my $fullname = shift;
  $fullname =~ m/.*\/(\w+)\.\w+/;
  $basename = $1;
  return $basename;
}