sub suck_this {
  my ($what) = @_ ;

  open my $FH, '<', \$what ;

  print " Read:" ;
  local $_;
  while (<$FH>) {
    s/\r/\\r/g ;
    s/\n/\\n/g ;
    print " '$_'" ;
  } ;

  print "\n" ;
} ;