#!/usr/local/bin/perl -w 

# FILE: chromosome.pl

# USAGE:
#     bash$ perl chromosome.pl rice.fpc > riceV7chr.gff

use Bio::MapIO;

# Gets the name of .fpc File
my $file = $ARGV[0] || 'rice.fpc';

# Creates the MapIO object
my $mapio = new Bio::MapIO(-format => "fpc",-file => $file, 
			   -readcor => 0, -verbose => 0);

# Gets the fpc map object
my $fpcmap = $mapio->next_map();

# Prints the GFF, chromosome-wise if the argument is 1
#                 contig-wise if the argument is 0             
$fpcmap->print_gffstyle(1);