$ perl 1210614.pl
You are overwriting a locally defined method (SetFileName) with an accessor ...