Select Code to Download

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

  my $file = $filename;
  $file =~ s![\\/]$!!;