Select Code to Download

C:\Old_Data\perlp>perl t33.pl
david
...

        Type Count
        Social Networking   1

user="john" website="www.yahoo.com" type="Entertainment"
user="john" website="www.yahoo.com" type="Entertainment"
user="john" website="www.yahoo.com" type="Entertainment"
user="david" website="www.facebook.com" type="Social Networking"
user="john" website="www.facebook.com" type="Social Networking"
user="mike" website="www.google.com" type="Search Engines"

#!/usr/bin/perl
use strict;
use warnings;
...
    }
    print "\n\n";
}

$VAR1 = {
          'john' => {
                      'www.yahoo.com‡˜Entertainment' => 3,
...
                       'www.facebook.com‡˜Social Networking' =>
                     }
        };