Select Code to Download

my ($in) = @_;

#!/usr/local/bin/perl

...

print "Dump after:\n";
Dump($s);print"\n";

Dump before:
SV = PV(0xf0c44) at 0xfe99c
...
  PV = 0xf7560 "some text here "\0
  CUR = 15
  LEN = 16