use Imager;

my $icon_width=128;
my $icon_height=128;
  
my $image = Imager->new(xsize => $icon_width, ysize => $icon_height);
  
$image->box(
		xmin=>0,
		ymin=>0,
		xmax=>$icon_width-1,
		ymax => $icon_height-1,
		filled => 1, color => '#ffffff'
	);
  
my $font_filename = 'C:/Windows/Fonts/arialbd.ttf';
my $font = Imager::Font->new(file=>$font_filename)  or die "Cannot load $font_filename: ", Imager->errstr;
  
print "Enter number: ";my $text=<>;chomp($text);

my $text_size = 96;
  
$font->align(
		string => $text,
		size => $text_size,
		color => '#000000',
		x => $image->getwidth/2,
		y => $image->getheight/2,
		halign => 'center',
		valign => 'center',
		image => $image
	);
  
$image->write(file=>'number.ico') or die 'Cannot save image: ', $image->errstr;