Perl- diff檔案內容並把相異處產出檔案

我是想要diff兩個檔案，並把相異處寫成diff.log

其實就是linux的 'diff A.txt B.txt > diff.log'

只是不知道為何我把那行塞進system()裡面，是無效的
他叫我diff:Try `diff --help' for more information

因此只好找perl內建的功能，例如Text:Diff來解決

但我用:
use Text::Diff;
my $diff_result=diff '$A.txt' => '$B.txt';
print OUTFILE '$diff_result';

他也會把檔名印出來讓我覺得困擾....
跪求各位高手有無其他解法? 謝謝....
這幾天被system()弄得好頭痛....

--