perl -Mstrict -w -e '
  my $fname = "test.txt";
  my $base  = ( split(/\./,$fname) )[0];
  print "$base\n";'