#!/usr/bin/perl use strict; my $file=shift; die ("HTML file missing") unless $file=~/\.html?$/; my $filename=$file; $filename=~s/\.html?$//; print "$filename\n"; open (HTML,$file) || die ("HTML file can't be opened"); my @html=; close (HTML); open(CSS,">$filename.css"); open(HTML, ">$filename.structure.html"); my $html=join('',@html);