my @headers = head $webpage; print join "\n", @headers;