someone touched my portss
it's time to drop them the bomb
#!/usr/bin/perl