1 files changed, 2 insertions, 1 deletions
diff --git a/dir-to-movie.pl b/dir-to-movie.pl
index d662a54..8648be2 100755
--- a/dir-to-movie.pl
+++ b/dir-to-movie.pl
@@ -8,8 +8,9 @@ my @lines = split('\n', $ls);
 my $pwd = `pwd`;
 chomp $pwd;
 $pwd .= '/';
+print $pwd . "\n";
 
-system('mkdir', 'tmp');
+mkdir('./tmp');
 
 for my $line (@lines) {
   chomp $line;