--- AnyEvent-Fork/Fork.pm	2015/06/20 13:16:50	1.65
+++ AnyEvent-Fork/Fork.pm	2015/06/20 13:24:54	1.66
@@ -675,7 +675,7 @@
 
    my $pid = Proc::FastSpawn::spawn (
       $PERL,
-      ["perl", "-MAnyEvent::Fork::Serve", "-e", "AnyEvent::Fork::Serve::me", fileno $slave, $$],
+      [$PERL, "-MAnyEvent::Fork::Serve", "-e", "AnyEvent::Fork::Serve::me", fileno $slave, $$],
       [map "$_=$env{$_}", keys %env],
    ) or die "unable to spawn AnyEvent::Fork server: $!";