diff --git a/pgdl.cabal b/pgdl.cabal
--- a/pgdl.cabal
+++ b/pgdl.cabal
@@ -1,6 +1,6 @@
 
 name:                pgdl
-version:             7.3
+version:             7.4
 license:             PublicDomain
 license-file:        LICENSE
 author:              sifmelcara
diff --git a/src/AskScene.hs b/src/AskScene.hs
--- a/src/AskScene.hs
+++ b/src/AskScene.hs
@@ -12,6 +12,7 @@
                          , playHand :: Handlers AskScene
                          , downHand :: Handlers AskScene
                          , quitHand :: Handlers AskScene
+                         , remvHand :: Handlers AskScene
                          }
 
 newAskScene :: IO (AskScene, Widget FocusGroup)
@@ -19,19 +20,21 @@
     playB <- newButton "No"
     downB <- newButton "Yes"
     quitB <- newButton "Quit"
-    buttonBox <- (mkwIO playB) <++> (mkwIO downB) <++> (mkwIO quitB)
+    remvB <- newButton "Remov"
+    buttonBox <- (mkwIO playB) <++> (mkwIO downB) <++> (mkwIO quitB) <++> (mkwIO remvB)
     b <- do
         bx <- (plainText "    Download it again?") <--> (return buttonBox)
         setBoxSpacing bx 1
         withPadding (padAll 1) bx
     fg <- newFocusGroup
-    mapM_ (addToFocusGroup fg . buttonWidget) [playB, downB, quitB]
+    mapM_ (addToFocusGroup fg . buttonWidget) [playB, downB, quitB, remvB]
     ui <- withBorderedLabel "File Exists!" =<< bordered b
-    [phs, dhs, qhs] <- replicateM 3 newHandlers
+    [phs, dhs, qhs, rhs] <- replicateM 4 newHandlers
     let sce = AskScene { sceneWidget = ui
                        , playHand = phs
                        , downHand = dhs
                        , quitHand = qhs
+                       , remvHand = rhs
                        }
     onButtonPressed playB $ \_ -> 
         fireEvent sce (return . playHand) sce
@@ -39,6 +42,8 @@
         fireEvent sce (return . downHand) sce
     onButtonPressed quitB $ \_ -> 
         fireEvent sce (return . quitHand) sce
+    onButtonPressed remvB $ \_ ->
+        fireEvent sce (return . remvHand) sce
     setFocusGroupNextKey fg KRight []
     setFocusGroupPrevKey fg KLeft []
     return (sce, fg)
@@ -53,5 +58,6 @@
 onSceQuit :: AskScene -> Handler AskScene -> IO ()
 onSceQuit = addHandler (return . quitHand)
 
-
+onSceRemv :: AskScene -> Handler AskScene -> IO()
+onSceRemv = addHandler (return . remvHand)
 
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -62,6 +62,9 @@
         Just (_, (itm, _)) <- getSelected lst
         playVid itm
     onSceQuit dlg $ const exitSuccess
+    onSceRemv dlg $ \_ -> do
+        Just (_, (itm, _)) <- getSelected lst
+        removeVid itm
     ifsfg <- newFocusGroup
     onKeyPressed ifsfg $ \_ key _ -> case key of
         KLeft -> chgls >> return True   
diff --git a/src/PlayVid.hs b/src/PlayVid.hs
--- a/src/PlayVid.hs
+++ b/src/PlayVid.hs
@@ -56,6 +56,12 @@
         addq s = "\"" ++ s ++ "\""
     
     
+removeVid :: Video -> IO ()
+removeVid vid = do
+    localDir <- getLocaldir
+    removeFile $ localDir </> vn
+    exitSuccess
+    where vn = T.unpack . vidName $ vid