Select Code to Download

sub insert_file {
  my $file = shift;
...
    close(F);
  }
}

use strict;
use warnings;
...
...
insert_file("local_frame_left.txt");
...