A useful feature for code snippets and experiments is the special __DATA__ section that can be added at the end of your program file. You can read from the DATA file handle with no need to create and open an input file:

#!/usr/bin/perl

  while (<DATA>) {
    print;
  }

__DATA__
foo
goo
hoo
[download]

__DataFoo__