diff --git a/3rdparty/qtcreator/create_project_files.pl b/3rdparty/qtcreator/create_project_files.pl
new file mode 100644
index 0000000000..501079b594
--- /dev/null
+++ b/3rdparty/qtcreator/create_project_files.pl
@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+=head1 create_project_files.pl
+
+This simple script traverses the haiku sources and creates (incomplete) *.pro
+files in order to make the haiku sources available within the qt-creator IDE.
+
+=cut
+
+use File::Basename;
+use File::Find;
+
+if (!@ARGV) {
+	die "usage: $0 <haiku-top-path>\n";
+}
+
+my $haikuTop = shift @ARGV;
+if (!-e "$haikuTop/ReadMe.cross-compile") {
+	die "'$haikuTop/ReadMe.cross-compile' not found - not a haiku top!\n";
+}
+
+my %collection;
+
+print "scanning ...\n";
+find({ wanted => \&process, no_chdir => 1}, 
+	("$haikuTop/headers", "$haikuTop/src"));
+
+writeProFile("$haikuTop/haiku.pro", { subdirs => ['headers', 'src'] });
+foreach my $dir (sort keys %collection) {
+	my $proFile = $dir.'/'.fileparse($dir).'.pro';
+	writeProFile($proFile, $collection{$dir});
+}
+
+sub process
+{
+	if (substr($_, -4, 4) eq '.svn') {
+		$File::Find::prune = 1;
+	} else {
+		return if $File::Find::dir eq $_;	# skip toplevel folders
+		my $name = (fileparse($_))[0];
+		if (-d $_) {
+			$collection{$File::Find::dir}->{subdirs} ||= [];
+			push @{$collection{$File::Find::dir}->{subdirs}}, $name;
+			return;
+		}
+		elsif ($_ =~ m{\.(h|hpp)$}i) {
+			$collection{$File::Find::dir}->{headers} ||= [];
+			push @{$collection{$File::Find::dir}->{headers}}, $name;
+		}
+		elsif ($_ =~ m{\.(c|cc|cpp|s|asm)$}i) {
+			$collection{$File::Find::dir}->{sources} ||= [];
+			push @{$collection{$File::Find::dir}->{sources}}, $name;
+		}
+	}
+}
+
+sub writeProFile
+{
+	my ($proFile, $info) = @_;
+	
+	return if !$info;
+	
+	print "creating $proFile\n";
+	open(my $proFileFH, '>', $proFile)
+		or die "unable to write $proFile";
+	print $proFileFH "TEMPLATE = subdirs\n";
+	print $proFileFH "CONFIG += ordered\n";
+	if (exists $info->{subdirs}) {
+		print $proFileFH 
+			"SUBDIRS = ".join(" \\\n\t", sort @{$info->{subdirs}})."\n";
+	}
+	if (exists $info->{headers}) {
+		print $proFileFH 
+			"HEADERS = ".join(" \\\n\t", sort @{$info->{headers}})."\n";
+	}
+	if (exists $info->{sources}) {
+		print $proFileFH 
+			"SOURCES = ".join(" \\\n\t", sort @{$info->{sources}})."\n";
+	}
+	close $proFileFH;
+}