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

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