<html>
<table>
<tr>
<td>
<iframe src="message.html">
it looks like your browser dont understand iframes
</iframe>
</td>
</tr>
</table>

/^[0-2][0-3]:[0-5][0-9]:[0-5][0-9]$/

use strict;
my (@list1, @list2, @new_list2);
# read from flat files
# assume @list1 is from list1.txt
open (LIST1, "list1.txt");
@list1 = <LIST1>;
close(LIST1);

# assume @list2 is from list2.txt
open (LIST2, "list2.xt");
@list2 = <LIST2>;

undef $/;

open(FILE, "</tmp/sample.txt");
undef $/;
my $content

##### Error start
E297: Write error in swap file
"import.pl" 681L, 23883C
Error detected while processing /usr/share/vim/vim70/ftplugin/perl.vim:
line   49:
E483: Cannot get temp file name
Press ENTER or type command to continue

#### Error end

#!/usr/bin/perl -w
use LWP::Simple;

my $filename = "http://sample.com/secure/sample.xls";

MakeFileLocal($filename);