my $path = $opt_s . "\\*.*";
  $path =~ s|\\|/|g;

  #find the newest file
  my $newestfile =
   (sort {(stat $b)[10] <=> (stat $a)[10]} glob $path)[0];