#!/usr/bin/env perl

use strict;
use warnings;

my ($file, $string) = qw{$HOME/... Completed...};

print <<"EOF";
#!/bin/sh
FILE="$file"
STRING="$string"
while ... "$file" ... "$string" ...
EOF

##</code><code>##

#!/bin/sh
FILE="$HOME/..."
STRING="Completed..."
while ... "$HOME/..." ... "Completed..." ...