#!/usr/bin/perl

use retrive;

%dat = retrive->gather();