package news;

sub new
{
my %news_sites={
get_from_bbc=>'www.bbc.com',
get_from_voanews=>'www.voanews.com',
#more websites#
}
foreach (keys %news_sites)
{

*{$_}=sub{       #post GET request to www.bbc.com
             
                 ###############
                 #if i can get the name of Subroutine
                 #I can do it like this.
                 ############
                 
                 get %news_sites{$name_of_Subroutine};
                 
                 #and do some process
 
                 return res;
                 };
}