my $file = "../frame.txt";
if(-s ($file) >0) 
	{
#    	open(FILE, '<', $file) or die $!;
#    	while(<FILE>) {
#         		print $_, "\n";
#     			}
#   	close(FILE);
	}
else
{
    print "$file contains no data\n";
}