#!/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