#!/usr/bin/perl

use retrive;

%dat = retrive->gather();

##</code><code>##

package retrieve;

sub gather {
  $dat{'user'} = "ironcom";
  $dat{'password'} = "password";

  return %dat;

}