gistfile1.txt

diff --git a/ibp b/ibp
old mode 100644
new mode 100755
index 99a99ca..22b7ae5
--- a/ibp
+++ b/ibp
@@ -120,6 +120,13 @@ sub install {
     File::Path::mkpath($name, 0, 0777);
     system("unzip -q bp.zip -d ".$name);
     system('rm -rf bp.zip');
+    #system("perl -pi -e 's/(charset=)[a-zA-Z0-9\-]+/$1utf8/' $param{proj_name}/index.html");
+    open(my $fh, '<', "$param{proj_name}/index.html") or die "Couldn't open $param{proj_name}/index.html\n";
+    my $html = do { local $/; <$fh> };
+    $html =~ s/(charset=)[a-zA-Z0-9\-]+/$1utf8/s;
+    open($fh, '>', "$param{proj_name}/index.html") or die "Couldn't open $param{proj_name}/index.html\n";
+    print $fh $html;
+    close($fh);
 }
 
 package main;