#!/usr/bin/perl
open(FILE,"viewall.pdbid") or die $!;
@file=<FILE>;
foreach $path(@file)
{
print $f1="/data/pub/pdb/$path";
print $f2="/tmp/$path";
print `cp $f1 /tmp/.`;
}