use Image::Info qw(dim);
my $MyFileName = "$ClassPath/classimg/$UpLoadedImg";
my ($width, $height);
if (-e $MyFileName){
  my $info = image_info($MyFileName);
  ($width, $height) = dim($info);
...