older perl bug with sub + open pipe ?

gistfile1.pl

#!/usr/bin/env perl
use strict; use warnings;
use Data::Dumper;

my $less ;
my $pid;

my $abc = sub {
    $pid = open($less, "| less");
    select $less;
};

&$abc();

print $less "MER IL ET FOU\n";