#!/usr/bin/perl

$ls = `ls -1 *.mm9.footprint.bigWig`;
foreach $bw (split/\n/, $ls) {
  $name = $bw; $name =~ s/\.bwt\.mm9\.footprint\.bigWig//;
  print "track type=bigWig name=\"$name depth\" db=mm9 visibility=full alwaysZero=on maxHeightPixels=40 color=0,0,153 bigDataUrl=http://snpinfo.niehs.nih.gov/ucscview/fessler/julie/ATACseq/July2016/$bw\n";
}