Select Code to Download

use strict;
use Text::CSV::Slurp;
...
$data = Text::CSV::Slurp->load(file => $file);

1

$csv->getline_hr($io)

    my $attr = $Text::CSV::AUTOLOAD;   # bound to 'Text::CSV::getline_
+hr'
    $attr =~ s/.*:://;             # Now it's just 'getline_hr'
    return unless $attr =~ /^_/;   # returns with no value

 DB<11> x \%INC
0  HASH(0x98c4780)
...
   'vars.pm' => '/usr/share/perl5/vars.pm'
   'warnings.pm' => '/usr/share/perl5/warnings.pm'
   'warnings/register.pm' => '/usr/share/perl5/warnings/register.pm'

 DB<16> x @_
0  Text::CSV=HASH(0x8ee2f90)
...
1  IO::Handle=GLOB(0x8cb42e8)
   -> *Symbol::GEN0
         FileHandle({*Symbol::GEN0}) => fileno(6)