--- AnyEvent-Fork/Fork.pm	2013/11/20 15:24:28	1.61
+++ AnyEvent-Fork/Fork.pm	2013/11/25 20:21:09	1.62
@@ -306,7 +306,7 @@
    }
 
    # now preserve everything so far as AnyEvent::Fork object
-   # in §TEMPLATE.
+   # in $TEMPLATE.
    use AnyEvent::Fork::Template;
 
    # do not put code outside of BEGIN blocks until here
@@ -627,7 +627,7 @@
 
    unless (defined $PERL) {
       # first find path of perl
-      my $perl = $;
+      my $perl = $^X;
 
       # first we try $^X, but the path must be absolute (always on win32), and end in sth.
       # that looks like perl. this obviously only works for posix and win32