my $file = $filename;        # can't remember why I do this, always have
  $file =~ s!^.*(\\|\/)!!;     # something about cleaning stuff up