open(in,"Test.vcf"); #in is a variable and any word or alphabet can be used; Test.vcf, if the file is in same directory; if they are in any other directory, please give full path.

while($line = <in>) #while is a key word to tell program that do the action in brackets until there are lines in file

{

	print $line; #Print whatever read in the cmd screen

	sleep(2); #Sleep is to stop computer from doing anything for a duration mentioned in brackets, this is to slow the program otherwise you will see nothing, because computers are really fast in this kind of tasks.

}