#!/usr/bin/perl

use strict;
use FindBin '$Bin';
use lib "$Bin/../blib/lib","$Bin/../blib/arch";
use Bio::DB::Sam;

my $bamfile = shift or die "Usage $0 <bamfile>\n";

my $bam = Bio::DB::Sam->new(-bam=>$bamfile) 
    or die "Couldn't open $bamfile: $!";
$bam->coverage2BedGraph();