#!/usr/bin/perl -w
use strict;
use warnings;
use Netscape::Bookmarks;
use Smart::Comments '###';

my $abs_bookmarks = '/home/myself/bookmarks.html'; 

my $b = Netscape::Bookmarks->new($abs_bookmarks);
### $b
## maybe thingy should have something in it?

my $categories = $b->categories;
### $categories

my $elements = $b->elements;
### $elements

my $as_string = $b->as_string;
### $as_string
## prints virgin bookmarks file