Select Code to Download

#!/usr/bin/perl
use strict;
...
print Dumper $ref;

__END__

  <div id="main">
    <div class="A">
...
        ...
    </div>
  </div>

$VAR1 = {
          'div' => {
...
                            ]
                   }
        };