waffle2k

#!/usr/bin/perl

use strict;
use IO::Socket;
use Term::ANSIColor;

sub get_file( $ ){
	my ($filename) = @_;
	open FD, "<$filename" || die( "Cannot open $filename: $!\n" );
	my $text = do { local $/; <FD>; };