diff --git a/update-gitea.pl b/update-gitea.pl
index 2de33f2..de7962c 100644
--- a/update-gitea.pl
+++ b/update-gitea.pl
@@ -12,8 +12,7 @@ use strict;
 use warnings;
 #use LWP::Simple;
 use LWP::UserAgent;
-use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
-# use Compress::Bzip2 qw(:all :constant :utilities :gzip); # cant get output
+#use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
 use Data::Dumper;
 use JSON;
 
@@ -23,29 +22,35 @@ use JSON;
 my $email='tclark77@tlcnet.info';
 my $filetype='-linux-amd64.xz';
 
-# gitea is hosted on github
-# GET /repos/go-gitea/gitea/releases/latest
 # https://api.github.com/repos/go-gitea/gitea/releases/latest
-
-=json
-$VAR1 = {
-            'upload_url' => 'https://uploads.github.com/repos/go-gitea/gitea/releases/15817548/assets{?name,label}',
-            'assets_url' => 'https://api.github.com/repos/go-gitea/gitea/releases/15817548/assets',
-            'tag_name' => 'v1.7.3',
-            'author' => {
-                          'gravatar_id' => '',
-                          etc
-                        },
-
-=cut
-
-my $gitea_bin = '/home/gitea/bin/gitea';
+my $gitea_bin_dir = '/home/gitea/bin/';
+my $gitea_bin = $gitea_bin_dir . '/gitea';
 my $gitea_current_version_string = `$gitea_bin --version`;
+my $alphanum_ver = 0;
+
+unless ( defined $gitea_current_version_string ) {
+     die "ERROR: Unable to get the version of the gitea binary: $!";
+}
+
 my $gitea_current_version;
 if ( $gitea_current_version_string =~ m/ion\ (\d+\.\d+\.\d*)\s+b/ ) {
+#if ( $gitea_current_version_string =~ m/ion\ (\d+\.\d+\.\d*)\s/ ) {
     $gitea_current_version = $1;
+    printf("Current version of gitea that is installed is $1\n");
+}
+elsif ( $gitea_current_version_string =~ m/ion\ (\d+\d+\w*)\s/ ) {
+    $gitea_current_version = $1;
+    printf("Current version of gitea that is installed is $1\n");
+    $alphanum_ver = 1;
+    print("!! Alpha num is true\n");
+}
+my %binary_file = (
+    input  => $gitea_bin,
+    version => $gitea_current_version,
+  );
+unless ( defined $gitea_current_version ) {
+    die "ERROR: Unable to get the current gitea version! Value is $gitea_current_version"
 }
-printf("The version of gitea that is running is \"$gitea_current_version\"\n");
 
 # Backup the current binary
 my $gitea_bin_backup = '/home/gitea/bin/gitea.' . $gitea_current_version . '.bz2';
@@ -64,16 +69,7 @@ my $temp_out = '/home/gitea/tempout.bz';
 my $bz = new IO::Compress::Bzip2 $temp_out
     or die "bzip2 failed: $Bzip2Error\n";
 
-# bzip2 $input => "$temp_out"
-#     or die "bzip2 failed: $Bzip2Error\n"; # This only writes the filepath to the output
-
-# bzip2 $input => "$gitea_bin_backup"
-#         or die "bzip2 failed: $Bzip2Error\n"; # This works, but writes garbage to end of filename
-        # need to do in OO way
-        # https://metacpan.org/pod/IO::Compress::Bzip2
-
-#print $bz $gitea_bin; # This writes the filename as string to the bz
-#$bz->close();
+backup_bin( \%binary_file );
 
 my $baseURL = q{https://github.com/go-gitea/gitea/};
 my $latestURL = q{https://api.github.com/repos/go-gitea/gitea/releases/latest};
@@ -90,28 +86,109 @@ my $latest_release_hash = decode_json($resp->content);
 # printf("!! Print the json response if we have one:\n");
 # printf Dumper $latest_release_hash;
 
-# In case we need to deref later
-#my %latest_release_data = %$latest_release_hash;
-
-my $tag = $latest_release_hash->{tag_name};
+my $tag = $latest_release_hash->{tag_name}; # Works
 printf("The latest gitea version is $tag\n");
+substr($tag, 0, 1, '');
+print("!! Tag is now $tag\n");
+my $download_filename='gitea-' . $tag . $filetype;
+printf("Downloaded filename will be $download_filename\n");
+  # gitea-1.7.6-linux-amd64.xz
 
-if ( $tag gt $gitea_current_version ) {
+my $release_id = $latest_release_hash->{id}; # Works
+printf("The release id for the latest gitea version is $release_id\n");
+
+
+if ( $tag gt $gitea_current_version || $alphanum_ver == 1 ) {
     printf("Proceeding with update\n");
-    my $dl_filename='gitea-' . $tag . $filetype;
-    printf("Downloaded filename will be $dl_filename\n");
+    my $download_url = get_download_url( $download_filename, $release_id );
+    print("Downloading the compressed binary\n");
+    print("Download URL we got from the sub is $download_url\n");
+    `wget -P $gitea_bin_dir $download_url`;
+    my $xz_file = $gitea_bin_dir . $download_filename;
+    print("!!! xz file is $xz_file\n");
+=devel
+    # Because doing this in perl would be a memory hog
+    `xz -d --keep /home/gitea/bin/$download_filename`
+
+    # Stop gitea service
+    # rename unpacked binary to gitea or symlink??
+    # chown gitea.gitea binary
+    # chmod 754 gitea
+    # Check if we can start gitea
+    # If can start then
+        # Remove old binary (backup done at beginning)
+        # Rename new binary to gitea
+        # Remove .xz file
+        # Notify success notify(1)
+    # If no start notify and end & notify fail notify(0)
+=cut
 }
 
-# Get the download_url from the array
 
-# Download version specified\
-  # $gitea_bin
-  # wget
 
-  # Unzip downloaded gitea
-  # unxz $GITEA_XZ
 
-# Stop service
+
+
+
+# If install_bin good then cleanup()
+
+#notification( $email );
+
+
+
+##### Subroutines #####
+
+sub backup_bin {
+  my ( %opts ) = %{shift()};
+  my $input = $opts{input};
+  my $version = $opts{version};
+  printf("Backing up the current binary\n");
+  printf("Input in backup_bin sub is $input\n and version is $version\n");
+  my $gitea_bin_backup = '/home/gitea/bin/gitea.' . $gitea_current_version . '.bz2';
+  printf("Gitea bin backup will be $gitea_bin_backup\n");
+
+  return;
+}
+
+sub get_download_url {
+  my ($dl_filename, $rel_id) = @_;
+  my $dl_url;
+  print("Download filename in the sub is $dl_filename\n");
+    # Get the download_url from the array
+    my $assetsURL = 'https://api.github.com/repos/go-gitea/gitea/releases/' . $release_id . '/assets';
+    # printf("!!! Dump of assets URL");
+    # printf("!!! $assetsURL\n");
+
+    my $asset_resp = $ua->get($assetsURL);
+    my $asset_resp_array_ref = decode_json($asset_resp->content);
+
+    # printf("!! Print the json response for the assets:\n");
+    # printf Dumper $asset_resp_array_ref;
+    # Array of hashes
+
+    foreach my $asset_ref (@{$asset_resp_array_ref}) {
+        printf("!! Print the name\n");
+        # printf Dumper $asset_ref;
+        #print $asset_ref->{name}  . "\n";
+        if ( $asset_ref->{name} eq $dl_filename ) {
+            print ("Yay we have a match :D and it is \n");
+            print $asset_ref->{name} . "\n";
+            $dl_url = $asset_ref->{browser_download_url};
+            print("!! The download url is\n $dl_url \n");
+            return $dl_url;
+        }
+        unless ( defined $dl_url ) {
+            print("ONOES we have no download URL!");
+        }
+
+    }
+    print("The download URL returning from sub is $dl_url\n");
+  return;
+}
+
+sub install_bin{
+
+    # Stop service
 
 # Copy the downloaded binary to gitea and chmod it 750
 
@@ -121,7 +198,17 @@ if ( $tag gt $gitea_current_version ) {
 
 # verify systemctld status is good
 
-# If good then remove downloaded binary and old backup set install_status=success ELSE remove "gitea" and restore from backup and set install_status=fail
+# return the status
+    return;
+}
 
-# Notification
-# $install_status message
+sub cleanup {
+# remove downloaded binary and old backup set install_status=success ELSE remove "gitea" and restore from backup and set install_status=fail
+    return;
+}
+
+sub notification {
+    my $to = shift;
+
+    return;
+}
\ No newline at end of file