diff --git a/bin/app.pl b/bin/app.pl
index 004620b..b0ea287 100755
--- a/bin/app.pl
+++ b/bin/app.pl
@@ -1,8 +1,9 @@
 #!/usr/bin/env perl
 use Dancer;
-use FindBin;
+use autodie qw(chdir);
+use Cwd qw(abs_path);
 
-chdir "$FindBin::Bin/..";
+chdir abs_path(dirname(__FILE__) . '/..');
 require App::Genregenerator;
 
 dance;