Select Code to Download

#!/usr/bin/perl

...
my $d = $c->getline( $fh );

print Dumper( $d );

foo,bar,baz^Mred,green,blue^Mnarf,blatz,quux