diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..9f11b75
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+.idea/
diff --git a/README.md b/README.md
deleted file mode 100644
index c694f30..0000000
--- a/README.md
+++ /dev/null
@@ -1,3 +0,0 @@
-# tools
-
-Tools for Project
\ No newline at end of file
diff --git a/RPM/CheckURL.pl b/RPM/CheckURL.pl
index 7dd89fa..e049d8c 100644
--- a/RPM/CheckURL.pl
+++ b/RPM/CheckURL.pl
@@ -1,17 +1,22 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
+use v5.10;
 
 use Parse::RPM::Spec;
-use LWP::UserAgent ();
+use HTTP::Tiny;
 
 my $spec = Parse::RPM::Spec->new( { file => @ARGV } );
-say $spec->name;
-my $url      = $spec->url;
-my $response = LWP::UserAgent->new( timeout => 10 )->get($url);
-if ($response->is_success) {
-    print $response->decoded_content;
+print $spec->name . "\n";
+my $url = $spec->url();
+say $url;
+my $response = HTTP::Tiny->new( timeout => 10 )->get($url);
+if ( $response->{status} == 200 ) {
+    if ( $response->{url} ne $url ) {
+        say "302 Redirect. Redirect to";
+        say $response->{url};
+    }
 }
 else {
-    die $response->status_line;
-}
\ No newline at end of file
+    say "Cannot get! Status " . $response->{status};
+}