http://qs1969.pair.com?node_id=361548

# Regex for an ip address my ($ip) = $q->remote_addr() =~ /^((\d{2,3}\.){3}\d{2,3})$/;

Remove all decorations (ie, title-bar and WM buttons) from a Tk window