my $start_of_DATA = tell(DATA);
my $total_file_size = -s DATA;
my $size_of_DATA = $total_file_size - $start_of_DATA;

### or, you can golf it to this
# my $size_of_DATA = (-s DATA) - tell(DATA);

__DATA__
this is the data
of the program.
woo woo