#!/usr/bin/perl
use sctrict;
open SAVEF, ">savefile.txt";