Replace working directory guess with FindBin

make-block.pl

@@ -18,7 +18,7 @@ use strict;
 use warnings;
 
 use Getopt::Long qw/ GetOptions :config no_ignore_case /;
-use File::Basename qw/ dirname /;
+use FindBin qw//;
 
 my %domains;
 my $dupes = 0;
@@ -69,7 +69,7 @@ sub add_host_file {
 MAIN: {
     my $out;
     my $block_ip = '0.0.0.0 ::1';
-    my $workdir = &dirname($0);
+    my $workdir = $FindBin::RealBin;
 
     unless (&GetOptions(
         'out=s' => \$out,