Help for this page
my $pid = open my $kid => "-|";
exec {$file} $file or die "exec() failed: $!\n";
#!/usr/bin/perl ... } __END__