Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
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;
...
}

$dbh->disconnect;