my $s3 = Amazon::S3->new
          (
             {
                aws_access_key_id => $aws_Access_key_id,
                aws_secret_access_key => $aws_secret_access_key
             }
          );
          
          my $test_bucket = $s3->bucket("testbucket");
          my $uploadFile_keyname = "r3u3298982938";
          my $add_file_test = $test_bucket->add_key_filename("$uploadFile_keyname","$cUpload_file",{content_type=>'application/pdf'})
          or die "Couldn't copy file to bucket" .$s3->errstr ."\n";
          my $response = $test_bucket->list;
           for my $key(@{ $response->{keys}})
          {
             if($key->{key} eq "$uploadFile_keyname")
             {
                my $urlenerator = Muck::FS::S3::QueryStringAuthGenerator->new($aws_Access_key_id,$aws_secret_access_key);
                $urlenerator->expires_in(36000000);
                $url = $urlenerator->get('testbucket',"$uploadFile_keyname");
             }

          }
          return $url;