#!/usr/bin/perl

# EPost - EFetch

use strict;
use NCBI_PowerScripting;

my %params;
my $db = 'pubmed';
my $i=1;

  #EPost
   my $in=$ARGV[0];
   $params{'db'} = $db;
   $params{'id'} = $in;

  %params = epost_file(%params);

  #EFetch
  
  my $out=$ARGV[1];
  $params{'rettype'} = 'medline';
  $params{'retmode'} = 'text';
  $params{'outfile'} = $out;

  efetch_batch(%params);

