diff --git a/src/perl/deploymodel.pl b/src/perl/deploymodel.pl
new file mode 100644
--- /dev/null
+++ b/src/perl/deploymodel.pl
@@ -0,0 +1,93 @@
+#!/usr/bin/perl
+
+#
+# $Id$
+#
+#  This file is part of the Virtual Leaf.
+#
+#  The Virtual Leaf is free software: you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation, either version 3 of the License, or
+#  (at your option) any later version.
+#
+#  The Virtual Leaf is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public License
+#  along with the Virtual Leaf.  If not, see <http://www.gnu.org/licenses/>.
+#
+#  Copyright 2010 Roeland Merks.
+#
+#
+
+# get dependencies for executable
+sub get_frameworks {
+    my $exec = shift;
+    my @frameworks = ();
+    my $fw;
+#  print "get_frameworks says: exec = $exec\n";
+    open deps, "otool -L $exec |";
+    # omit first line
+    <deps>;
+
+    while (<deps>) {
+	# look for lines with ".framework", that do not start with / or @.
+	if (/\.framework/ && !/^[ \t]*\// && !/^[ \t]*\@/) {
+	    chomp;
+	    @line = split;
+	    $f = $line[0];
+	    # get framework directory name
+	    @line = split(/\//,$f);
+	    for $d (@line) {
+		if ($d =~ /\.framework/) {
+		    $fw = $d; 
+#          print "get_framework finds framework $d\n";
+		    last;
+		}
+	    }
+	    if (defined($fw)) {
+#	print "get_frameworks pushes $fw on stack\n";
+		push @frameworks, $fw;
+	    }
+	} 
+    }
+    @frameworks;
+}
+
+$app = $ARGV[0];
+$appdir = $app.".app";
+if ($appdir =~ /\.app\.app/) {
+    $appdir = $ARGV[0];
+}
+$exec = $appdir."/Contents/MacOS/$app";
+
+@frameworks = get_frameworks( $exec );
+
+# do the same for additional libs not in a framework depending on frameworks (e.g. libqwt...)
+#@additionallibs = ( "libqwt.dylib" );
+$modeldir = "models";
+@models = ();
+opendir (MODELS, "$modeldir") or die "Could not open directory, $!";
+while ($file = readdir MODELS) {
+		
+	
+	if ($file =~ /^.*\.dylib/) {
+		print "$file\n";
+		push @models, $file;
+	}
+}
+closedir MODELS;
+
+for $model (@models) {
+	print "Doing model: $model\n";
+    my @frameworks_of_model = get_frameworks ( "$modeldir/$model" );
+    for $fwfw (@frameworks_of_model) {
+	#    print "$fwfw\n";
+	$liblib = $fwfw; $liblib =~ s/\.framework//g;    
+	system "install_name_tool -change $fwfw/Versions/4/$liblib \@executable_path/../Frameworks/$fwfw/Versions/4/$liblib  $modeldir/$model";
+    }
+}
+
+# finis