($width, $height) = gifdim('test_text');
print "Height = $$height  Width = $$width \n";
exit;
sub gifdim ($) {
    my $filename = $_[0];
    my $height =200;
    my $width =300;
    return \($width, $height);

}