sub getItemsFromFile
{
    local $/=undef;
    open IN_FILE, "< /tmp/.rss_download_file";
    my $file_in = <IN_FILE>;
    close (IN_FILE);
       #$file_in="<item>headline1</item><item>headline2</item>";

    my @allItems=();
    #while ($file_in =~ m{<\s*item\s*>(.*?)</\s*item\s*>}g)
    while ($file_in =~ m{<item>(.*?)</item>}g)
    {
            push (@allItems, $1);
            print "$1\n";;
    }
    return @allItems;
}