+
+my $fin;
+
+# Apache2.0
+if ($r->isa('Apache2::RequestRec')) {
+ require Apache2::Request;
+ require Apache2::Upload;
+ my $req = new Apache2::Request($r);
+ my $upload = $req->upload('filename');
+ $fin = $upload->fh();
+}
+
+# Apache 1.3
+else {
+ $fin = $r->upload()->fh();
+}
+