use Storage;
  my $storage = new Storage();
  use Source;
  use Destination;

  $Source::storage = $storage;
  $Destination::storage = $storage;
  my $input = 'source.txt';
  while (<IN>) {
    $source = new Source($_);
    $destination = new Destination();
    $source->storeData();
    $destination->useData();
  }