#!/usr/local/bin/perl

open (FILE, 'calher_files.txt');
while (my $line = <FILE>) {
	chomp ($line);
	next if $line =~ /^\s*$/;
	my $fullpath = "/data2/da/calheritage/ucb/images/$line";
	`cp $fullpath .`;
}
close (FILE);
