You can supply a bit of data for posting in a self contained example by using the DATA handle, e.g.:

while (<DATA>) {
  print "Got: $_";
}

__END__
one
two
three
[download]

Try to post the minimum amount of code and data that demonstrates the problem you're having (and fix your closing code tag).