get_fields.pl

#!/usr/bin/perl

system("clear");

open( F, "id_attachment.txt" ) || die "Error al abrir archivo";
@base = <F>;
$contador = 0;

foreach ( @base ) {

  @campos     = split(/;/, $_);
  $id         = $campos[0];
  $attachment = $campos[1];
  print "$attachment";
}

close F;
print "\n";