#!/usr/bin/perl
open(FILE,"file") && (@data=<FILE>) && close(FILE) ||
	die "Can't process file";
