Command line tools are more useful when they accept file names from the command line.

perl compare.pl file1 file2
[download]

But if you prefer to prompt the user, feel free to adjust at will.