#!/usr/local/bin/perl
$file = shift @ARGV;
chomp $file;
open(BUILD,"$file") || die "File $file not found \n!";
@recs = <BUILD>;
$count = 0;
foreach(@recs)
{
	$str = m/.\-D/;	
	if ($str)
	{
		@flags = split(" ",$_);
	}
	foreach (@flags)
	{
		$str2 = m/^\-D/;
		if ($str2)
		{
 		 $finalflags[$count] = $_;	
		 $count++;
			
		}
	}
}
@sortflags = sort @finalflags;
foreach(@sortflags)
	{
		print"$_\n";
	}