sub show {
	my $line = $_;
	print "Testing if this is even working!!!\n\n";
        print "<< $line\n";
	$scrolledText -> insert('end',"<< $line");	# Insert the text into the Listbox $scrolledText
}