#!/usr/bin/perl -w
#Copia-ho a un fitxer
#Dona-li permisos d' execució (chmod +x fitxer)
#Posa al mateix directori el fitxer addressbook.csv que hi ha a l' ecampus
#pots executar: fitxer nom_fitxer.csv >> .addressbook i s' afegeix al
#que ja tinguis guardat

open (FITXER,$ARGV[0]) or die "No puc obrir fitxer";

while (<FITXER>) {
	@camps=split /,/;
	print "\t".$camps[1]."\t".$camps[2];
}