#!c:/perl/bin/perl.exe

while (my $ssad) {
	# body...
}