(original) (raw)

#!/usr/bin/perl -w use strict; use warnings; use Getopt::Std; &main; exit; sub main { if (@ARGV == 0) { print STDERR qq( Usage: bedutils.pl