I can't remember how to do this and can't find the info. I hope someone knows off hand. I have a script in which I need to include sample data. I am currently doing it by including a hash in the script and then iterating through it to populate different items. I know you can include data after the __END__ statement, but I don't remember the exact procedure. Any Ideas would be appreciated. Here is the code I am using at this moment: 
#!/usr/bin/perl -w

use strict;
use cmj_date;
use Spreadsheet::WriteExcel;

# Variables
   my $file_name = 'switch_report.xls';
   my $hash_ref  = shift;
#temp for development
#set year to 2002.
   my $month = '07';
   my $year = '2002';

[download]
***Following is the data hash I have included in the code*** 
   my %switch_hash = (
        chrdex   => {
           '01-AUG-02'  => 1,
           '03-AUG-02'  => 3,
        },
        uslcgb5e2sm => {
           '4-AUG-02'  => 1,
           '6-AUG-02'  => 2,
        },
        uslecat2531 => {
           '1-AUG-02'  => 1,
           '2-AUG-02'  => 3,
           '3-AUG-02'  => 1,
           '4-AUG-02'  => .25,
        },
       );

[download]
***End of included data***
   my $rswitch_hash = \%switch_hash;
   my %calendar = (
     JAN      => 31,
     FEB      => 28,
     MAR      => 31,
     APR      => 30,
     MAY      => 31,
     JUN      => 30,
     JUL      => 31,
     AUG      => 31,
     SEP      => 30,
     OCT      => 31,
     NOV      => 30,
     DEC      => 31,);
     if (! $year % 4 ) {$calendar{FEB} = '29'}; #leap year clause
   my $sheet_title= sub { return "Traffic Estimations Report - $_[0] $
+_[1]" } ;

# Create a new Excel workbook
   my $workbook = Spreadsheet::WriteExcel->new($file_name);

# Add a worksheet
   my $worksheet = $workbook->addworksheet();
      $worksheet->fit_to_pages(1,1);
      $worksheet->set_landscape();
      $worksheet->set_margins(.25);
      $worksheet->set_zoom(75);
      #$worksheet->set_column(0,100,12);

# Add formats
   my $cb_format    = $workbook->addformat(
    bold      => 1,
    italic      => 1,
    underline => 1,
    align      => 'center',
    size      => 26,);
   my $rotation_format    = $workbook->addformat(
    rotation  => 2,
    bold      => 1,
    valign      => 'vcenter',
    align      => 'center',
        size      => 20);
   my $clli_format    = $workbook->addformat(
    align      => 'center',);
   my $hours_format    = $workbook->addformat(
        align      => 'center');




# Write Day of the month header to the worksheet.
# written rotated 90 degrees counterclockwise
# in vertically merged cells.
      $worksheet->write(5,0,"Day of the month",$rotation_format);
      $worksheet->merge_cells(5,0,38,0);
      $worksheet->set_column(0,0,8.43);
      $worksheet->set_column(3,38,11.29);


# write_switch_data

write_hash_data($rswitch_hash);

sub write_hash_data{
   my $row = 6;
   my $col = 3;
   my ($hent) = @_;
   my $switch;
   my ($day, $month, $year);

# Write switch name and data column for each switch
   foreach $switch (sort keys %$hent ) {
      $worksheet->write($row, $col, $switch,$clli_format);
      foreach my $data (keys %{$$hent{$switch}} ) {
        ($day, $month, $year) = split("-",$data);
        $worksheet->write($row + $day, $col,$$hent{$switch}{$data},$ho
+urs_format);
     }
     $col++;  # incriment the column count so the data
   }          # moves across the page.

# Write Title to the worksheet
      $worksheet->write(0,1,&$sheet_title($month, "20".$year), $cb_for
+mat);
      $worksheet->merge_cells(0,1,2,29);
      $worksheet->merge_cells(4,1,4,29);
      $worksheet->set_row(4,30.75);

# Write Days/Dates
   $row = 7;
   $col = 1;
   my $count = 1;
   my $col_width=1;
   while ($count <= $calendar{$month} ) {
      my $day_of_week=day_of_week($count."-".$month."-20".$year);
      $worksheet->write($row, $col, $day_of_week);
      $worksheet->set_column($col,$col, 14.86);
      $worksheet->write($row, $col + 1, $count, $hours_format);
      $worksheet->set_column($col + 1,$col + 1, 7.57);
      $col_width=length($month." ".$count." 20".$year);
      $row++;
      $count++;
   };
};

sub USEAGE{
   print "ERROR:\n";
   print "Useage: xcl2.pl <hash reference> <Month Number 1-12> <4 digi
+t year>\n";
   exit;
}

[download]

In reply to Include Data in Executable by gnu@perl

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.