#!/usr/bin/env perl
use strict;
use warnings;

use Music::GuitarChordDiagram;
 
my $dia = Music::GuitarChordDiagram->new(
    chord      => '0212',
    string_num => 4,
    fret_num   => 6,
    outfile    => $0,
    verbose    => 1,
    tuning     => [qw/A E C G/],
);
 
$dia->draw();
