_path_to_perl => $Config{perlpath}; sub new { shift; } sub _image { state $image = do { local $/ = <DATA>; decode_base64($/); }; return $image; } sub _find_shebang { my ($class, $lines) =