HDCS9-156039439P:defunct abc$ cat data.pl  
#!/usr/bin/perl

open $outputfile, ">>","output_defunctusers_movement.txt" or die "$0: open : $!";  

$count=0; 
open(DATA, "</Users/abc/defunct/DEFUNCT.txt") or die "Couldn't open file /Users/abc/defunct/DEFUNCT.txt ,$!"; 
@lines= <DATA>;  

for ($i=0;$i<=$#lines;$i++) 
{ 

print $lines[$i]; 
`mv /Users/abc/defunct/"$lines[$i]" /Users/abc/defunct/search_data`; 
$count++; 
print $outputfile "$count . Successfully moved file : $lines[$i] \n"; 

} 

close(DATA) || die "Coulnt close file /Users/abc/defunct/DEFUNCT.txt properly";