sub print_data
{
    my %hoh = %$skip_users;    
    next if ((exists $hoh{$user}) && (exists $hoh{$user}{$command}));
}
[download]

I wonder if the next if ... part is a typo. This should throw up an error unless print_data is called inside a loop.

Do you mean:

  print $hoh{$user}{$command}
    if ((exists $hoh{$user}) && (exists $hoh{$user}{$command}));
[download]

/prakash