Perl Script to compare between two baseline in UCM

Hello guys,

I have written a script which will differentiate between two baseline in UCM:
The two baseline is passed as an argument from command line.
Now i can see the output in a .txt file,where it will give you the ouput in this way.....

M:\srath_view\AIR\AIR_RATH.c@@\main\base2ucm_source\600_int\1
M:\srath_view\AIR\AIR_NEW.c@@\main\base2ucm_source\600_int\1

NOW I WANT ALL THE CHANGED FILE NAMES TO BE PUT IN A .CSV file with all the file name listed down.......

So Please anyone help to find out the difference between two ucm baseline in a .csv file

why cant you use cleartool diffbl baseline1 baseline2?

It is working....
But I want the output to display in a .csv file with the path of all the file names and whether it is changed or not in the new baseline.....

The output is not in a good shape while using this command.....