sub showfile {
  use Win32::Process;
  my ($Process);
  Win32::Process::Create($Process,
                         "C:/Program\ Files/Opera/opera.exe",
                         " $file",
                         0,
                         DETACHED_PROCESS | THREAD_PRIORITY_NORMAL,
                         ".") || &error_message("failed to start opera");
}